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5 COMPUTER SOFTWARE ADDENDUM 

Attached hereto is a compact disc containing computer 
software and data including executable programs, scripts, and 
database management system tables that are used to implement 
the systems and methods provided by the present invention. 

10 More particularly, the attached compact disc contains software 
and data used to implement at least two distinct applications 
comprising the systems and methods provided by the present 
invention; such two distinct applications include a broad-based, 
general use energy management system (referred to as the 

15 Energy Management System "EMS"), and a limited user/function 
restricted application (referred to as the Producer Control Center 
"PCC") intended for use by fuel producers needing access to 
centrally stored and managed fuel deal data. Such material is 
protected by the Copyright Laws of the United States (17 U.S.C. § 

20 101, et seg.) and may not be copied without the express, written 
authorization of the copyright holder (Highland Energy 
Corporation). Copyright © 2001, Highland Energy Corporation. 
All Rights Reserved. 

25 BACKGROUND OF THE INVENTION 
Field of the Invention 

The present invention relates to systems and methods 
used to facilitate pricing, sale, and distribution of fuel to a 
customer. More particularly, the present invention is directed to 
30 automated systems and methods that are used to price fuels such 
as natural gas, oil, gas, other petroleum based fuels, etc., to 
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facilitate commodity sales of such fuels, and to distribute such 
fuels to customers, and to track and report sales and distribution 
related data. 



5 Description of the Related Art 

Fuel sales and distribution systems and techniques are well 
known. Everyday millions of fuel sale contracts are completed in 
the U.S. and abroad. Fuels produced by a range of producers are 
transported over many modes of transportation (e.g., gas 

10 pipelines, etc.) to ultimately arrive at an intended destination. The 
steps involved in pricing fuel, selling a reserve, storing reserves, 
and ultimately transporting purchased fuel involve many parties 
including producers, agents, brokers, other middlemen and, 
ultimately, end customers. All of these parties have their own 

15 unique ways of doing business, reporting sale and purchase data, 
and collecting and paying against agreed upon contracts. 

Unfortunately, many of the steps and processes carried out 
to facilitate fuel sales and distribution are archaic, inefficient, and, 
often, paper-based. Such inefficient ways of doing business 

20 cause many parties to engage large teams of personnel to 
manage the intricate details often involved in fuel sale and 
distribution. Fuel deal pricing provides a good example of the 
inefficiencies involved in moving large volumes of natural gas and 
other fuels. 

25 Typically, pricing fuel deals in the natural gas arena 

involves manual processes related to gathering fuel index rates, 
manually computing sales prices across a multitude of fuel sales 
deals, laboriously factoring in transportation and other tangential 
costs, and managing for fuel overages and short falls often 

30 associated with transportation anomalies, etc. These processes 
typically involve the efforts of large teams of personnel within 



-2- 



organizations who are required to constantly monitor sales deals, 
set pricing limits for sales people, and track and record fuel deal 
progress. 

While many systems have been developed to facilitate sale 
and distribution of fuel and other products, commodities, and 
services in general, no systems developed to date can effectively 
management the volume of transactions among a wide array of 
parties to efficiently and effectively get fuel from one place to 
another. Moreover, existing systems have heretofore not been 
able to facilitate pricing practices that factor in past fuel deal data 
across a multitude of prior fuel deals to better drive profit margins 
in the commodities and brokerage fields. 

Accordingly, there exists a serious need to provide systems 
and methods that enable centralized location and management of 
fuel deal data, provide for application of pre-determined pricing 
techniques based on such fuel deal data, facilitate broad-based 
reporting based on such centrally stored fuel deal data to drive 
better business practices for parties to fuel deals, and increase 
productivity and make more efficient fuel sale and distribution 
practices. The present invention squarely addresses such a need 
and provides a new and improved systems and methods for 
facilitating fuel sale and distribution. 

SUMMARY OF THE INVENTION 

The present invention solves the problems mentioned 
above with regard to prior systems and methods used to facilitate 
sale and distribution of fuel to a customer. By squarely 
addressing the limitations of prior systems and methods, the 
present invention provides new and improved systems and 
methods that permit a wide array of users to broadly access a 
central data store to create and manage fuel deal data. Such new 



and improved systems and methods further permit the inclusion of 
pricing processes into existing business processes that are based 
on prior fuel deal data and which take into account prior prices 
charged across collections of prior fuel deal contracts. 

Accordingly, the present invention provides new and 
improved systems and methods for facilitating sale and 
distribution of fuel to a fuel customer. Such systems and methods 
include and involve a server facility configured to store fuel deal 
data and to process such fuel deal data to automatically generate 
pricing data based on the fuel deal data and in accordance with a 
pre-determined pricing technique. The system and method also 
include and involve a client facility that is coupled to the server 
facility via an electronic data network and which is configured to 
permit a user to enter such fuel deal data and to cause the server 
facility to store and process the fuel deal data to generate the 
pricing data. As such, fuel may be sold and distributed to a fuel 
customer via a fuel distribution system based on the fuel deal data 
and the automatically generated pricing data. 

BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is described in detail below with 
reference to the following drawing figures, of which: 

FIG. 1 is a timing diagram that depicts process flows within 
a business process that facilitates sale and distribution of fuel to 
customers in accordance with a preferred embodiment of the 
present invention; 

FIG. 2 is a system diagram in which client systems can 
access server system(s) to facilitate sale and distribution of fuel to 
customers in accordance with the business process illustrated in 
FIG. 1; 



FIG. 3A is an entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used 
to implement the systems that carry out the business process 
illustrated in FIG. 1; 

FIG. 3B is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3C is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3D is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3E is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3F is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3G is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 3H is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 



used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 31 is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3J is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3K is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3L is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3M is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3N is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 4A is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations -carried out to effect the business process 
illustrated in FIG. 1; 



FIG. 4B is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4C is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4D is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4E is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4F is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4G is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4H is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 41 is another screen shot of a data processing 
application running within a client system to facilitate at least 



some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4J is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4K is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4L is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4M is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4N is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 40 is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1 ; 

FIG. 4P is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations-carried out to effect the business process 
illustrated in FIG. 1 ; 



FIG. 4Q is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 5A is a flow chart that illustrates the operations carried 
out to effect a pricing technique and, in particular, one that 
effectuates a weighted average sales price for fuel deals in 
accordance with a preferred embodiment of present invention; 
and 

FIG. 5B is the conclusion of the flowchart started in FIG. 

5A. 

DETAILED DESCRIPTION OF THE 
PREFERRED EMBODIMENTS 

The present invention is now described in detail with regard 
to the drawing figures that were briefly described above. 
The systems and methods described herein are illustrative of the 
exemplary system implemented by way of computer software 
within a networked data processing environment and which is 
contained within multiple files housed on the compact disc that is 
appended to this patent document. Accordingly, the discussion 
that follows refers to such an exemplary system and those skilled 
in the art are encouraged to review such appended software in the 
context of fuel deal management for a complete understanding of 
the present invention. As noted at the beginning of this patent 
document, the material contained on the attached compact disc is 
protected by the Copyright Laws of the United States (17 U.S.C. § 
101, et seq.) and may not be copied without the express, written 
authorization of the- copyright holder (Highland Energy 
Corporation). Copyright © 2001, Highland Energy Corporation. 
All Rights Reserved. 



Referring now to FIG. 1, depicted therein is a timing 
diagram corresponding to the business process carried out within 
an organization to facilitate sale and distribution of fuel to a 
customer and which may be set up to utilize the systems and 
methods provided by the present invention. In particular, FIG. 1, 
illustrates a monthly or periodic business process involving 
several phases of operation that are carried out by the systems 
and methods provided by the present invention including, but not 
limited to: an availability phase, a bidding phase, a nominating 
(e.g., gas pipeline nominations, etc.) and routing phase, a third 
party and sanctioned sales period, a pricing period, an invoicing 
period, and an accounting period. Together, these periods make 
up what is referred to herein as a MONTH OF FLOW PROCESS 
(MFP). The MFP is described next to further illustrate the 
business operations that are handled by the systems and 
methods provided by the present invention. 

THE MONTH OF FLOW PROCESS (MFP) 
Availability Period 

During the availability period of the month of flow process, 
equity contracts for sale and distribution of fuel (those that need to 
roll from month to month) are established for the next month. 
These purchase deals define the anticipated volumes by 
well/meter for each producer. The status for the production month 
needs are set to 'Availability' at this point. Then, correspondence 
is transferred (via fax, email and phone conversations) to the 
various operators/producers in order to confirm the anticipated 
volumes to be produced. 

The anticipated production volume for an entire well/meter 
is then entered into the system. An entitlement and makeup 
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percentage is used to indicate how much of this volume is actually 
available to be marketed (represents the owner interest in the 
production of the well/meter). New deals are setup on the system 
to represent the new month's purchases. The package 
5 description is utilized to assist with easy recognition of volumes, 
price, etc. (used for identification purposes only). There is a 
process built within the system to automate the propagation of 
new deals to the next month (first time into a new month will 
automatically generate entries for the new month with zero 

10 volume amounts). The actual volume stored on the system (at 
this point) is zero. Only the nominated volumes contain the 
expected volumes for the production month. These dominated" 
volumes are equal to the estimates provided by the producers and 
entered into the system during this part of the month of flow. The 

15 primary area of the system utilized is the 'Availability' functions (off 
the system's main menu.) 

Bid Week Period 

During the bid week of the month of flow process, buyers 
20 are found for the volumes that were made available through the 
availability step described above. The status of the production 
month of the system needs is set to 'Sales" at this point. By 
setting the status to 'Sales' all of the price indices will be initially 
populated and 'seeded' with zero values. Each of the sales is 
25 confirmed by a dealmaker and is written up on a deal log sheet. 
These deal log sheets reflect the pipe/field, meter/well, company, 
contract, volume, and pricing instructions to support the sale. 
Prior to completing a deal, the dealmaker will work closely with the 
volume control group to ensure that appropriate volumes will be 
30 available at the well/meter of sale. The dealmakers then complete 
the deal log sheet entries for the sale and they are transferred to 
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the volume control group for deal creation and entry into the 
system. Most of the volumes sold during this particular phase are 
for the equity purchase deals created during the availability 
period. 

5 

Nominating and Routing 

During the nominating and routing period of the month of 
flow process, the volumes to support the sales are routed from the 
producer's well/meters to the sales wells/meters (primarily to 

10 pooling points or field tanks). This process occurs throughout the 
entire month. When the volumes are routed to specific pool 
wells/meters, allowances are automatically made by the system 
for fuel, gathering and transport costs. These costs will net down 
the actual available volumes that can be applied to the sales 

15 deals. When volumes are routed to a pool/tank then these 
volumes reflect as Transport Out volumes'. The volumes then 
show up as "Transported In' (net fuel) on the receiving meter/well 
within the system. The primary area with the System utilized 
during this process is the "Route Volume" menu option within the 

20 Routing module (main menu selection of 'Routing' on the System. 

Third Party Deals and Sanctioned Sales 

During the Third Party Deals and Sanctioned Sales of the 
month of flow process, the dealmakers complete the third party 

25 deals. These deals are typically setup where a specific purchase 
deal (non equity type) is made to support a specific sales deal. 
These types of deals will usually have a specific price agreement 
and volume associated with them. Sanctioned sales represent 
sales from equity volumes with specific terms (prices, volumes, 

30 etc.) to specific sales meters. A sales price for a specific volume 
is set in advance of the production month with these types of 
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deals. All third party deals are excluded from Weighted Average 
Sales Price (WASP) calculations as discussed below with regard 
to FIGS. 5A and 5B (each third party purchase volume exists 
within its own WASP pool ('None')). All sanction sales deals are 

5 included within the WASP calculation but EACH combination 
sanction sales (purchase-to-sale) will utilize a 'Dedicated' WASP 
pool during the calculation. In this way, sanction sale costs etc. 
PLUS netback percentages can be applied. All equity deals 
combined with the 'Common' WASP pool where costs and prices 

10 are aggregated by meter/well based on volume weightings. All 
deals actually go through the calculation in order determine 
margins. However, the calculation has been setup to ensure that 
third party, sanctioned sale and equity pools are calculated 
without interfering with each other. 

15 

Pricing 

During the pricing period of the month of flow process, all 
monthly index based prices are entered immediately when 
published. These are usually entered just before the beginning of 

20 the production month. Daily prices are keyed or otherwise 
entered throughout the month as they are received. When deals 
are setup the 'Pricing' function within the System is used to 
actually calculate a price for the deal ('Price' tab on deal detail 
screen). Each evening, for example, the 'Price All Deals' function 

25 of the System is started. This particular function will re-price all 
deals for the entire month (Price + WASP calculations). For 
months in the 'Sales' phase, the nominations are re-priced and 
recalculated. For months in the 'invoiced' phase, the pipe/field 
actuals are re-priced and recalculated. In addition, to this periodic 

30 process, an option exists within the System to price production 
months throughout a day, for example. Below, with reference to 



-13- 



FIGS. 5A and 5B, the details related to fuel deal pricing are 
described. The ability of the present invention to incorporate a 
pricing technique such as one that is predetermined and 
implemented as a modular component of a larger software 
5 system, represents a significant point of novelty to which the 
present invention is directed. 

Invoicing 

During the invoicing period of the month of flow process, 
10 invoices for all of the sales for the previous month are produced. 
This represents the final step of the month within the system. All 
marketing individuals directly involved with the system for the 
month (controllers, dealmakers, etc.) are informed that the month 
is closing out and that invoices are now being produced. The 
15 status for the production month is changed to 'Invoiced 1 . A final 
nomination calculation is automatically done with the status 
updated. Accounting is then notified that the month has been 
completed. Invoicing reports are then run for the month and sent 
to the buyers by an accounting group, for example. Additional 
20 reports may be run (Sales By Pipe/Field, Purchase By Producer, 
Balancing Reports, Pipeline Statement Comparison Reports, etc.) 
by the accounting group for historical reference and reconciliation. 

Accounting 

25 During the accounting period of the month of flow process, 

an accounting group creates a revenue and journal entry feed to 
track receivables within an automated accounting system. This 
feed is created directly out of the system. Pipe/Field statements 
begin appearing beginning as early as the 15 th of the month. 

30 These statements represent volumes (by well/meter) for the 
previous month. Each accounting analyst is responsible for a 
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specific set of pipe/fields. The volumes from these statements are 
entered as actuals into the system. A copy of the Pipe/Field 
statements are sent to the controllers for sign off. Accounting 
analysts then balance all of the purchase meter routing 

5 information for their respective pipe/fields. Accounting analysts 
then balance all of the sales meters for their respective pipe/fields. 
Accounting analysts then adjust any route volumes that cross 
pipe/fields to ensure interconnect balances are synchronized with 
pipe/field statements. Reconciliation and voucher reports can be 

10 run immediately after the production month is promoted to 
'Accounting' phase (meaning accounting is finished with the 
month). These reports can then be sent to producers and/or 
entered into to accounting system. 

1 5 AN EXEMPLARY SYSTEM 

Referring now to FIG. 2, depicted therein is a diagram of an 
exemplary system in which client systems can access server 
system(s) to facilitate sale and distribution of fuel to customers in 
accordance with the business process (MFP) illustrated in FIG. 1. 

20 In particular, system 100 includes both server(s) 102 and client 
systems 104. Additionally, a database management system and 
corresponding data store 106 (hereinafter data store 106) is used 
to store fuel deal data and programs. Servers 102 are configured 
to be accessed via wide area network connections such as those 

25 facilitated via the Internet using open standards based protocols. 
Client systems 106 are configured with software contained on the 
appended compact disc to access servers 102 to engage in fuel 
deal operations such as those described with reference to the 
month of flow process (MFP) discussed above with regard to FIG. 

30 1. 
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In FIG. 2, client systems 104 may be configured as desktop 
computing systems, wireless computing clients, etc. to access 
servers 102. Such access may be made possible via applications 
and technology such as dbOvernet TCP/IP Socket Connection 
5 Middleware. Furthermore, servers 102 execute common 
SEServer applications and routines utilizing dbOvernet 
middleware technology. 

Within the processing space of servers 102, a database 
server system such as Microsoft's SQLServer V.7.03 (a DBMS 
10 engine) may be instantiated. Such a database management 
system may control data store 106 and may be configured in 
accordance with the present invention to maintain all fuel deal 
data in accordance with the present invention. 

The following discussion further defines an exemplary 
15 arrangement for a client-server system implemented in 
accordance with the present invention: 

SERVERS 

MS Windows NT 4.0 (SP6) may be chosen as a Network 

20 Operating System. 

The DBMS may be Microsoft's SQL-Server (V7.0x) - 
Service Pack 3. All data generated and processed within the 
context of the present invention is stored in MS SQL-Server 
database tables. Such data is accessed via direct SQL 

25 statements (embedded in Windows applications, stored 
procedures, forms, and reports). There are several database 
views that have been setup to access aggregated information (for 
performance and consistency). In addition, all of the critical 
calculations and time consuming procedures such as pricing 

30 calculations, routing and rollover processes, etc. are written as 
Transact-SQL stored procedures and are contained on the 
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attached compact disc and are discussed in further detail below in 

the embedded description-tables found herein. 

The SEServer may be a Middleware Server Application. 

The system database is accessed via middleware software that 
5 uses TCP/IP (SEServer/dbOvemet). All databases queried 

through the system come through this middleware component. 

SECrystal (Crystal Reporting Engine Server Application) 

may be used for server side reporting functions, etc. All reports 

for the system utilizes a remote Crystal Reporting engine 
10 (SECrystal) server. These reports are run and saved on the 

server for electronic distribution. Crystal Report (V8.0) from 

Seagate Software is used for this function. 

The SEFax (Fax Server Application) may be used for Fax 

distribution. This server application is responsible for sending out 
15 reports via a fax device. This software monitors a specific 

directory and when a fax file 'shows up' in the directory it will be 

faxed. 

The MAPI Mail Client Software provides Email (like 
Microsoft Outlook or Outlook Express). The MAPI compliant email 
20 service needs to be running on the same machine as the report 
engine server (SECrystal). This provides the ability to email 
reports (Correspondence) automatically. Options should be set 
on this client to automatically check (send/receive) at periodic 
intervals. 

25 The Adobe Acrobat Reader (Free PDF Viewer) is used to 

view reports, etc. The server machine that runs the SECrystal 
reporting server application needs to also have the PDF viewer 
installed. This is used in order to 'spool' to paper the print jobs. 
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WEB ACCESS - NETWORK CONNECTIVITY 

All functions within the System are available over the 
Internet (with appropriate security). An individual wishing to log in 
to the system over the Internet will need to have appropriate 
5 application security to log in, the current application executable 
program (as contained on the attached compact disc) and an ISP 
account. System administrators will need to furnish access site 
addresses (e.g., IP addresses, domain names, etc.) to users to 
address the systems provided by the present invention. 

10 

CLIENT SYSTEMS 

Client systems may utilize a Client Operating System such 
as MS-Windows 95/98/Me; MS-Windows NT 4.0/2000. TCP/IP 
network protocol is required. Access to the server TCP/IP 

15 address (either LOCAL address or REMOTE address is required.) 

The system typically includes a single .EXE file(s) (plus 
approximately 8 disk compression and graphics DLL's). The 
system application require only a single executable with a few 
DLL's to reside on the client machine. No other client 

20 configuration software is required. Upgrades to the client software 
are automatically done when a user first connects (logs in) 
through the Internet (on application startup). A version number 
check will be made if necessary and a new installation program 
and script are automatically downloaded. 

25 The Adobe Acrobat Reader (FREE PDF view) is used as a 

reporting system for files saved in the PDF 1.2 format. The 
default output for all reports on the system is the standard PDF 
format. This provides for email/electronic storage. In order to 
view reports this software (or other third party viewer with a file 

30 association to .pdf files) needs to exist on the client machine. 
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The MAP! Mail Client Software is used for electronic mail 
communications. A MAPI compliant email service needs to be 
running on the client machine to be able to highlight a report and 
email it using the client email address list. This software is not 
5 required to run the but is required to take advantage of the 
system's ability to attach reports automatically within an email 
client. 

All client applications are written using DELPHI (V5+) 
including Delphi 3 rd party tools and procedures. Such applications 
10 and stored procedures and identified 3 rd party tools are further 
described in the description-tables found below. 

DATABASES, AND CORRESPONDING 
ENTITY RELATIONSHIPS 

1 5 The various database tables that make up the system have 

been divided into nine (9) database subject areas. A subject area 
within this context is simply a logical aggregation of tables that 
support a particular business or system function. All of the 
database tables physically reside in the same database, but are 

20 not required to so reside. Only the documentation (as described 
below) has been constructed to illustrate these subject areas. It is 
also important to note that there are linkages (not documented 
here) between the various subject areas. 

These database subject areas and a description include: 

25 Companies: All company related tables (including 

company name, contact name, addresses functions, etc.). 

Contracts: All contract related tables (including contract 
provisions, notes, default standard reporting, etc.). 

Deals: All deal related tables (includes other costs, deal 

30 classes, correspondence, etc.). 
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Volume Inventory: All volume inventory tables (includes 
production interests, daily monthly, calculated values, etc.). 

Operational: All tables that were created to support the 
system (software application). These tables include fax queue 
5 tables, printer definition tables, system logs, system messages, 
reporting tables, etc. 

Pipes/Fields: All pipe/field and meter/well related tables. 

Pricing: All tables within the system that are related to 
pricing (indices, price descriptions, baskets, etc.). 
10 Routing: All tables within the system that define routes (leg 

definitions, daily leg rates, monthly leg rates, nom and actual 
volume routing instructions, etc.). 

Security: All security related tables within the system 
(includes user, logins, passwords, business functions, etc.). 
15 The above-described nine (9) logical database subject 

areas are next broken down into the actual tables that reside on 
the attached compact disc. For purposes of brevity, such 
database subject areas are broken down in the following tables: 

20 



<THIS SPACE LEFT BLANK INTENTIONALLY> 
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Below is an inventory of the various database tables that are utilized by the Energy Management System. This 
particular inventory indicates the current number of rows (through January 2001), the database (MS SQL Server) 
and the database subject areas (logical grouping of tables). 



Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments 














Companies 
Subject Area 


i 


i | 




1 0 




1 384 


CO I Caruar 

ouu oerver 


oornpanica 


Contains record entnes for each address for ait 
companies and contacts within companies 
(muitipie address types per company and/or 
contact). 


2.0 


Company 


1,242 


SQL Server 


Companies 


Contains a record entry for each company in 
the database. Information on this table 
includes company name, fax, phone and 
primary address reference identifier. 


3.0 


ContactJ3roup 


90S 


SQL Server 


Companies 


Contains a record entry for each contact group 
relationship. This is the mechanism for 
grouping company contact individuals.. 


4.0 


Contact JjfoupNames 


8 


SQL Server 


Companies 


Contains a record entry for each contact group 
name. 


5.0 


ContactFunction 


997 


SQL Server 


Companies 


Contains a record entry showing the contact to 
function relationships for a given company. 


6.0 


Contacts 


3 t 347 


SQL Server 


Companies 


Contains a record entry for each individual 
contact in the database. Includes full name, 
phone, fax, email, title, etc. 














Contracts 
0 Subject Area 














10.0 ; 




1 t 414 


SQL Server 


Contracts 


This table contains a record entry for each 
contract within the system. Sank information 
(ABA), Evergreen indicators, termination date, 
fixed pricing, eta type data attributes are stored 
on these records. Each contract on the system 
has an associated parent 'company 1 (on the 
Company table). 


11.0 


KNetBacK 


334 


SQL Server 


Contracts 


This table contains the netback pricing tiers 
associated with a given contract The parent 
table for this entity is the contract table (K). 
The netback pricing tiers are volume and date 
influenced. 


12.0 ! 


^Knotes 


569 


SQL Server 


Contracts 


This table contains an optional record entry for 
each contract on the system. Ifthereareno 
notes associated with a contract then the 
records are not inserted on the database. This 
provides the users with a free form area for 
keeping notes about a contract 


13.0 


Kproducts 


1,049 


SQL Server 




This table contains a reference to the products 
that are available (oil, gas, liquids, eta) for a 
given contract A product has to be associated 
to a contract before a deal can be setup using 
that contract for that product 


14.0 


KreportDefauits 


48 


SQL Server 




This table contains the entire standard 
reporting defaults for a particular entity. These 
reports include invoices, remittance, vouchers, 
deal confirmations, etc. 


15.0 


KreportOverndes 


0 


SQL Server 




If a particular contract has its own unique 
standard reports then a reference to these 
unique reports is stored in this table for the 
contract in question. 
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Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments 


16.0 


Kservices 


1,068 


SQL Server 




This table contains a reference to the services 
that are available (marketing, end user, pass 
thru, etc.) for a given contract A service has to 
be associated to a contract before a deal can 
be setup using that contract for that service. 












Deals *; w „ 
Subject Area ' 


i 








20.0 


RdeaiClass 


6 


SQL Server 


Deals 


This table is a reference table that indicates the 
types of deal class options that are available. 
The context of each class is 0=Purchases. 

I 'Odica aflu <£~DUU1* I (IB UcaWifJUUfi llclU 

indicates the possible answers (but the 

lUcoiwiaSSra idOlo wuniaUto Ulc aUUai aiiawcio 

that can be applied). 


21.0 


RdeatCIassA 


23 j SQLServer 

! 


Deals 


This table is a reference table that indicates the 
possible deal classification options for each of 
the classifications defined in the rDeaiCIass 
table. 


22.0 


RdeaiCIassRuies 


448 


SQL Server 


Deals 


This table contains record entries for every 
combination of deal classification answers 
(rDeatCIassA table). Each of these 
classification options can have its own set of 
calculation rules/etc associated with it 


23.0 


£ngsne_Master 


39,149 


SQL Server 


Deals 


This table contains a record entry for each price 
entry effective date (header record). 


24.0 


i£ngine_MasterPrice 

.-ST 


79,244 


SQL Server 


Deals 


This particular table contains the individual 
pricing components associated to a given deal 
on a given effective date (parent record is on 
the Engine_Master table). When the user of 
the Energy Management System enters a 
price, this is the table that gets updated. 


25.0 ] 

\ 

i 


Package 


65,351 


SQL Server 


Deals 


This table contains a record for each deal that 
has been setup on the system. Start Date, End 
Date, Deal Name, Contract Company, eta are 
specified on this table. 


26.0 i 


^JPackageCosts 

■f Ji 


381 


SQL Server 


Deals 


This table contains entries for ail 'other costs' 
associated with a given deal Each of these 
'other costs 1 will have unique SHD's (deal or 
meter level) and have calculated 'Engine' 
records automatically generated (when a 
calculation runs). 


27.0 | 


s PackageCorrespondence 


3,447 


SQL Server 


Deals 


This table contains entries for ail of the 
electronic correspondence between the parties 
to the deal (deal confirmations, availability 
reports, remittance detail, vouchers, etc). 


28.0 


PriceComponents 


19 


SQL Server 


Deals 


This table contain record entries for each 
component that can be set aside for pricing 
purposes (on a deal). Examples include 
•DAILY INDEX', 'MONTHLY INDEX*, 
'GATHERING', eta These tags will be 
associated to each component of the price to 
allow for future queries and reporting. In 
addition, these tags will provide an audit trail of 
all pricing related information. 


29.0 


PriceDesc 


33 t 877 


SQL Server 


Deals 


This table contains a record for each deal 
description (or comments) within the system. 
These price description records (only 1 per 
deal) provide the users with a place to put free 
form text to help describe the pnce of the deal. 














Volume inventory 
Subject Area 


i iii 
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Ref# 


Table Name 


Rows 


Database 


Subject 
Area; 


Description/Comments -pw 


30.0 

i 


Engine 


280,970 


SQL Server 


Volume 
Inventory 


This table contains record entries for eacn 
calculated transaction that the system attaches 
to volume inventory nerns. cacn transaction 
has a unique STID (transaction id) that are 
defined in the Engine JTransactionList table. 
Indicators on this table determine the 
disposition or tne trans amon. 


31.0 


EngmeJTransactionList 


36 


SQL Server 


Volume 
Inventory 


This table contains record entries that define ail 
of the transactions that can be calculated and 
stored in the Engine table. The STID field is 
the uniQiie transaction identifier. 


32.0 


Gaslnv 


159.501 

! 


SQL Server 

j 
i 


Volume 
Inventory 


This is the primary table were all volumes 
(nominated and actual) are maintained This 
table contains the header record entries that 
shows by month, company, transaction, 
pipe/field & meter/well the nominated volume 
and the estimated actual volumes. References 
to price types* contracts, eta are stored on 
each record. 


33.0 


GasinvO 


4,145,617 


SQL Server 


Volume 
Inventory 


This table contains the detail (DAILY) 
nominated and estimated actual volumes for 
the Gaslnv table. 


34.0 


Prodinterest 


7,999 


SQL Server 


Volume 
Inventory 


This table contains a record that lists the 
production interests that are held for a given 
meter/well and contract (with date 
effectiveness). 


35.0 * 


~ rTOQr'Kg 


a non 
4,UaU 


SQL Server 


Volume 
Inventory 


This table contains a record that indicates (by 
month) the contract and the deal ID of a deal 
that was generated automatically within the 
'Availability* (equity purchase deal creation) 
area of the system. 


36.0 h 


;;ProdSum 


39,295 


SQLServer 


Volume 
Inventory 


This table contains records that indicate (by 
month and meter/well) the gross mmbtu's and 
tne Dtu xacxors. 


37.0 


ProdVol 


44,187 


SQL Server 


Volume 
Inventory 


This table contains record entries (by month 
ano meter/weuj wntcn snow ine receipt ana 
delivery mmbtu's per day. 


( • h 














1 Operational 
Subject Area 














I 


40 f 


AppiicationMessages 


55,882 


SQL Server 


Operational 


This table contains a 'roiling' 7 day listing of all 
application messages (such as those that are 
displayed to the console during a calculation). 


41.0 


ExceptionCategones 


8 


SQL Server 


Operational 


This table contains record entries to hold ail of 
the exception 'reasons 1 that will be used 
whenever an exception even occurs. There 
can be multiple types of exception categories. 


42.0 


ExceptionList 


2,171 


SQL Server 


Operational 


This table contains entries for the actual 
exception events that get logged by the system. 
These represent an audit trail of non-normal or 
error type information. This table is linked to 
the ExceptionCategones table because each 
exception event (in this table) requires a reason 
category. 


43.0 


LogTabie 


4. 


SQL Server 


Operational 


This table is used for debugging purposes only 
and is not used in any screens or reports. 


44.0 


PnnterDef 


6 


SQL Server 


Operational 


This table contains a record for each available 
printer (including driver and port). 
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Ref#^ 


Table Name 


Rows 


Database 


Subject 
Area 


, Description/Comrnente^ --r- ^ f r*-~ 


45.0 


RgasMonth 


1,440 


SQL Server 


Operational 


This is a reference table that contains a record 
for each month from 1/1980 thru 12/2099. In 
addition, this table also contains the status and 
status update sequence number for the 
particular month. This status is used in order to 
enable/disable certain functions within the 
Energy Management System throughout the 
month. 


46.0 


RGasMonthStatus 


1,873 


SQL Server 


Operational 


This represents a historical audit table that will 
be updated every time the monthly status for a 
given production month is modified (via triggers 
on the RgasMonth table). This provides a 
mechanism of identifying who & when the 
changes were for the status, over time. 


47.0 


SEMessaqes 


1,251 


SQL Server 


Operational 


All system messages are stored in this table. 


48.0 


SEAudtt 




SQL Server 


Operational 


This table contains record entries for those 
events that are deemed 'auditabie*. Some 
examples include 'Login' events, Actualization 
balancing events, standard report submission 
events, etc. 


49.0 


SEimages 


2 


SQL Server 


Operational 


This table contains record entries that contain 
graphic images for the screen and reports used 
throughout the system. 


50.0 


SELocations 


3 


SQL Server 


Operational 


This table contains record entries that define 
the server paths (network folder locations) 
where certain key correspondence items are 
found. For example (report location, deal 
correspondence, etc). 


51.0 y 


1 SEProcessingCoaeTypes 


15 


SQL Server 


Operational 


This table contains the Type' codes to the 
reference table 'SEProcessingCodes 1 . An 
example is the type code of 'CONTRCTPRD* 
which describes a reference code for contract 
products. 


52.0 h 


* SEProcessingCodes 


143 


SQL Server 


Operational 


This table contains reference codes for vanous 
fields used throughout the Energy Management 
System. 


53.0 *; 


SERptsExecutedStats 


19,117 


SQL Server 


Operational 


This table contains record entries that lists the 
start and end date and times for all reports that 
were submitted. This provides statistics on 
how long to execute/eta 


54,0 i 


SERptsGroupitems 


218 


SQL Server 


Operational 


This table contains entries of each specific 
report that exists within a reporting tab (group) 
within a specific reporting folder (category). 


55.0 


SERptsGroups 


36 


SQL Server 


Operational 


This table contains a list of ail available 
reporting tabs (groups) within each reporting 
folder (category). 


56.0 


SERptsitemOetail 


123 


SQL Server 


Operational 


This table contains the list of all available 
reports within the system. 


57.0 


SERptsitemPanns 


657 


SQL Server 


Operational 


This table contains record entries for each 
report parameter for each report defined to the 
system. Options exist for substituting a 
different label name than actual parameter field 
name. 


58.0 


SERptsQueue 


5,667 


SQL Server 


Operational 


This table contains record entries for ail 
'submitted 1 reports (report queue). When 
reports are automatically removed from the 
system the record is removed from this queue. 


59.0 


SERptsQueueOistribute 


7,855 


SQL Server 


Operational 


This table contains entries that dictate how to 
distribute the output of reports from the queue 
(fax, email printer, eta). 


60.0 


SERptsQueueNotify 


276 


'SQL Server 


Operational 


This table contains entries that indicate who 
(and if) individuals or groups have been notified 
that the report has finished. 


61.0 


SERptsSchedule 


0 


SQL Server 


Operational 


This table contains records that define specific 
schedules for the running of scheduled reports. 
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Ref#- 


Table Name, />?,-;-„ . 


Rows 


Database 


Subject, 
Area* 


Description/Comments. ; V* v - * \ V ' 


62.0 


SERptsScheduledReports 


0 


SQL Server 


Operational 


This table contains record entries that define 
which reports to run as parfcof specific 
schedules. ~ 


63.0 


SERptsScheduiedGroups 


0 


SQL Server 


Operational 


This table contains 'groups' for scheduling. 
This provides the ability to assign multiple 
individuals to a specific group and have the 
group belong to the schedule. 


64.0 


SERptsScheduiedUserGroup 
s 


0 


SQL Server 


Operational 


This is the actual table that contains the 
members within a schedule group. Each entry 
in this table defines the group. 


65.0 


SERptsTabtesUsed 


396 


SQL Server 


Operational 


This table contains documentation on what 
tables, views or stored procedures are used 
within each report 






I 






Pipes & Fields 
Subject Area 






i 






ao.o 


Meter 


4,335 


SQL Server 


Pipes and 
Reids 


This table contains a record entry for each 
well/meter that has been setup on the system. 
The pipe/field, name, county and state are 
stored here. 


81.0 


MeterNotes 


935 


SQL Server 


Ptpes and 
Reids 


This table contains a record for notes pertaining 
to meters/weiis. 


32.0 


PipeFtetd 


372 


SQL Server 


Pipes and 
Reids 


This table contains a record entry for each 
pip/fiekl defined on the system. The company 
and the pipe/field description are stored here. 


83.0 fj 


% MeterRates 


3,980 


SQL Server 


Pipes and 
Reids 


This table contains the entire pressure base. 
Btu factors by effective date for specific 
metersAveils. 


84.0 iy 


MeterAllocations 


551 


SQL Server 


Pipes and 
Reids 


This table contains entries for the allocation 
information on the meter/weti. This includes 
accounting cross-reference codes (id and 
deck). 
















""Pricing 
Subject Area 






















90.0 f 


GCIndex 


142,268 


SQL Server 


Pricing 


This table contains record entries by Day for 
daily index prices AND/OR a single entry for 
monthly index prices (1* day of month for 
monthly indices). 


91.0 n 


i IndexRef 


228 


SQL Server 


Pricing 


This represents the master table of all defined 
price indices within the Energy Management 

Custom One* rauwei ontrv nor inHov avtcte 
oysusxn. utio icwwiu ctiu y pen iiiubx cxiaui 

within this table. 


. 92.0 


IndexBaskets 


14 


SQL Server 


Pricing 


This table contains a record entry for each 
index basket established on the system. These 
index baskets can be associated to sales or 
purchase deals just as normal indexes are 
associated to them. Simple averages are 
calculated with att index items within an index 
basket 


93.0 


Index8asketlink 


36 


SQL Server 


Pricing 


This table contains the actual indices that are 
currently associated with an index basket An 
unlimited number of indices can exist in a 
basket A simple average of all the prices 
within the basket is used. 
















Routing: 
Subject Area 






















101.0 


LegRef 


4,226 


SQL Server 


Routing 


This table contains record for each unique 
transportation leg (meter-to-meter) on the 
Energy Management System. 



20E 



Ref# 


Table Name 


Rows 


Database 


Subject' 


. Description/Comments ; ^ \ : ^ ^ 


102.0 


Leg 


57,830 


SQL Server 


Routing 


This table contains a record for each active leg 
within a given month. Nomination and actual 
rates that the leg utilizes during the month are 
posted on each record. These rates are used 
with the actual routing instructions (LegOetail 
table). 


103.0 


LegO 


0 


SQL Server 


Routing 


This table contains uH I IONAL entnes for any 
w«tiw la** rata* that need to tas utilized within a 

Golly ISO 1 clicS Midi iicvu kw ub uuik&cu wiim** ** 

given month. Daily rates are checked PRIOR 
to the monthly rates (on the Leg table) when 
setting up the actual routing instructions 
(LegOetail table). 


104.0 


LegOetail 

I 


1,716,695 


SQL Server 


Routing 


This table contains the detail routing 
instructions for all volumes purchased all the 
way through the sales points for that particular 
volume. Nomination AND actual routing 
instructions are stored for each meter/weil that 
had volume activity during the month. All 
volumes sold can be tracked back to originating 
purchase ooints. 


105.0;: 


: WASPResovedRouting 


34,304 


SQL Server 


Routing 


This table contains record entries that show the 
pool level calculated totals for all receipt and 
delivery points within the system. 'Common', 
'Dedicated' and 'None 1 pools are aggregated 
and the total numbers stored here. Only 
'rnmmon 1 nooi volumes and dollars represent 
the totals from more than one purchase point 
(shows weighted average pricing based on 
volumes purchased and/or transported). 




: Security 

* Subject Area 










110.0|^ 


, GCUser 


27 


SQL Server 


Security 


This table contains a single record entry per 
unique user (employee) on the system. The 
character based (up to 12 character) login ID 
AND an internal user id (integer) are unique 
keys to this table. 


111.0 


GCButton 


58 


SQL Server 


Security 


This table contains records that represent the 
system functions that have specific security 
rules associated with them on the system. For 
example a system function of 'DEALS' has 
been setup in order to define security 
relationships between users (GCUser table) 
and this function. 


112,0 


GCSecunty 


1,548 


SQL Server 


Security 


Hits tabte stores the relationships between 
users on the system (GCUser table) and the 
system function that they have access too 
(GCButton tabte). A specific access privilege is 
stored for each of these relationships (tike 
READ ONLY, READ/UPDATE, 
READ/UPDATE/DELETE or SUPER). 
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Referring now to FIGS. 3A-3N, depicted therein are entity 
relationship diagrams that illustrate data relationships among 
tables and corresponding table entries used to implement the 
systems and methods that carry out the business process 

5 illustrated in FIG. 1. The database tables used logically 
categorized above into the above-identified nine (9) subject areas 
are maintained within data store 106 (FIG. 1), and are included 
among the files present on the attached compact disc, and are 
further defined in detail in FIGS. 3A-3N. Those skilled in the art 

10 will readily understand the data relationships among relational 
database tables as shown in FIGS. 3A-3N. Accordingly, for 
purposes of brevity, further comments about FIGS. 3A-3N have 
been omitted. 

In addition to the tables described and specified in the 
15 tables listed above, the following table illustrates an inventory of 
the various database views that utilized by the systems and 
methods provided by the present invention. 

20 



25 <THIS SPACE LEFT BLANK INTENTIONALLY> 
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View Descriptions 



Below is an inventory of the various database views that are utilized by the Energy Management System: 



Ref# 


View Name 


Description/Comments * 


1.0 


V_SearchDB 


Provides a view to search the database stored procedures and triggers for specific text items. 
Used for assessing the impact of system changes. 


2.0 


VAccountingRevenueFeed 


Database view (3 select UNION) used for creating OGSYS journal and revenue receivable data. 


3.0 


VCompany 


Display of company information (name, address, eta) 


4.0 


Vcontact_Accounting 


Display the accounting contact for a given company. 


5.0 


Vcontact Admin 


Display the administrative contact for a given company. 


6.0 


Vcontact Control 


Display the control contact for a given company. 



7.0 



View Name 

Vcontact Production 



Description/Comment*: 



Sat Jiet^ UCd ° n C0nt3Ct f ° r 3 9iVen ^P 30 * 11118 * I* 1 * contact used toAvaiiabif ity 



Display ine contact responsible for confirming volumes within a given company. This is the 
contact used for volume confirmatory j n the 'Availability- phase. 



— wmiuHdugng in ine Mvanaonny pnase. 

5E f0r 3 Qiven ato"9 with their respective functions (accounting, 



VContacts 
VETIDJ3ates 



uispiay name ana addresses forronteS: 



Display the engine start, effective and end dates for a given engine transaction id (based on 
package). This view is used VERY LITTLE because of perfbrmanr- : 



VgaslnvO_NomChg 



Display list of daily volumes where the nomination volumes are different between two successive 



17Jf 
18.CN 



VKTermination 

VteoOetaii MeterTotais 



Displays speci fic contract termination inf bnnation. 
Display routing information summarized 



t by meter. 



"2o!Sr 



VlegQetaii_PtpeiineComparis 
on 



Display routing information in a format that is used for the pipe/fieid comparison report Used for 
reconciling fuel gathering, tr ansport pvr, etc to pipetffeid statements. 



VlegDetaiLPurchasePointTot 
als 



Display routing infbnnation that shows total routing costs/etc for given purchase points (hop 0'i 
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Once all software and data as described above has been 
properly installed on one or more server systems 102 and within 
one or more coupled (networked) client systems 104 as illustrated 
in FIG. 1, use and operation of the systems and methods provided 

5 by the present invention may be commenced. Such operations 
may be in relation to the general use application (Energy 
Management System - EMS) or the limited use/user/function 
application (Producer Control Console - PCC) provided on the 
attached compact disc. In either case, the present invention 

10 facilitates a client-server application environment that includes, 
among other things, a user interface that is pleasing to users and 
which permits easy and ready access to system functions and 
operations. Such a user interface may be a graphical user 
interface or GUI that is configured to permit a user to engage in 

15 window-operations to bring about database operations that affect 
fuel deal data and the like in accordance with the present 
invention. Such a GUI is illustrated by way of screen shots 
(images of computer monitor screens) that are used to permit 
generation of, manipulation of, reporting of , and all other system 

20 operations relating to fuel deals and corresponding fuel deal data. 

For example, reference is now made to FIGS. 4A-4Q which 
illustrate a data processing application running within a client 
system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1. FIG. 1, for 

25 example, represents an opening main menu screen through which 
a user may select "PERSONAL" operations related to setting up a 
personal profile to affect user-preferred presentation of data (e.g., 
name, screen colors, etc.). Additionally, a user may select 
"PRICE-INDEX" to affect fuel pricing and index related data. A 

30 user may select "COMPANY" to control lists of producers, and 
other related company entities. A user may select other options 
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corresponding to the steps involved and described with regard to 
the MONTH OF FLOW PROCESS illustrated and described with 
reference to FIG. 1. 

The other screen shots shown in FIGS. 4B-4Q further 
5 illustrate specific features of the GUI that has been designed to 
facilitate the implementation of the systems and methods provided 
by the present invention. For the purpose brevity, further detailed 
comments related to such screen shots has been omitted. 

10 SYSTEM IMPLEMENTATION AND FUNCTIONALITY 

As noted above, the present invention utilizes stored 
procedures in the form of database management system 
procedures and functions which are executed server-side and 
client-side to facilitate the present invention's systems and 
15 methods. Listed in the following tables, is a detailed break-down 
of all the stored procedures, tools, and modules used to facilitate 
such systems and methods. The actual source code and 
instructions contained with in such procedures, functions, and 
modules is contained on the attached compact disc. 

20 

STORED PROCEDURES 

Below is an inventory of the various database-stored 
procedures (procedures and functions) that are utilized by the 
systems and methods provided by the present invention. Each of 

25 the stored procedures and functions are written in the Transact- 
SQL dialect. All of the stored procedures are prefixed with "usp_" 
which stands for "User Stored Procedure." This provides an 
ability to differentiate those procedures bundled with the DBMS 
versus those created for the systems and methods provided by 

30 the present invention: 
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Stored Procedures 



Below is an inventory of the various database-stored procedures (procedures and functions) that are utilized by 
the Energy Management System. Each of these stored procedures and functions are written in the Transact-SQL 
dialect All of the stored procedures are prefixed with "uspj* which stands for "User Stored Procedure". This 
provides an ability to differentiate those bundled with the DBMS versus those specifically created for the EMS 
application. 



Ref# 


Stored Procedure Name 


Description/Comments - ^ ^ - 


1.0 


UspJDaiiyCIeanup 


This procedure is run everyday and is responsible for any cleanup activities (like 
rolling aged messages off the Appiicationiviessages laoiev 


2.0 


UspJGetCaicindex 


Retrieves the weighted average pnce for a given volume item. This routine ts 
invoked during the WASP calculation in order to obtain the price for the 
meter/weil and post it to the Engine database tabfe. 


3.0 


UspJGetindex 


Retrieves the daily or monthly pnce index for a given day. Used during the 
pricing calculation routine. 


4.0 


Usp_fGetindexBasket 


Retrieves and calculates the index amounts for the pnce lines whenever an 
index basket price variable has been entered. This particular function will return 
the average price (simple average) of ail indices within the basket for a given 
month/day. 


5.0 


UspJGetNetbackPercentage 


This function will return the actual netback percentage to be used for a given 
production month and contract When it calculates the netback it looks at 
volumes and tier instructions that have been setup on the contract The number 
it returns is the netback percentage to utilize. In addition, this routine brings 
back the specific percentage to use for the product being calculated (gas, 
liquids, oil. eta). 



23A 



Ref# 


Stored Procedure Name 


Description/Comments ' . 


6.0 


UspJGetProdlnterestiD 


This routine bnngs back the production interest information fore particular 
ownership interest. , Z . 


7.0 


UspJGetProdPkg 


This procedure bnngs bade the deal id' (if one already exists)i*hen posting 
volumes through the 'Availability* screens. If a deal does not already exist (in the 
current production month) then a new deal is created and that ID is sent back. 


3.0 


UspJGetWASPIndicator 


This function accepts a deal id (package ID) as its input. It then reads the 
DeaiCIass table and the rDeaiCIass table(s) to determine if this particular deal 
should be considered WASPabie based on its classification scheme. The return 
values are either 'None', •Common' or 'Dedicated 1 . 


9.0 


Usp_fGet Wasp Type 


this procedure will send back the WASP type field (GAS, OIL or UQUJDS) when 
passed a specific product ID. This procedure is used during the calculation in 
order to determine which set of netback rules off a contract to use. 


10.0 


Usp_fIsLastDay 


This procedure accepts a date and sends back the last date in a production 
month. 


11.0 : UspJLastDay 

I 


This procedure accepts a date and sends back the last date in a production 
month. 


12.0 | UspJPipeContactinfo 


This procedure, when passed a pipe/field id, will send back the specific contact 
information requested (like accounting contact volume contact etc.). 


13.0 : Usp GasDayToGasMonth 


This function will return the production month to use for a given production day. 


14.0 j Usp^GetProductVoiumeRound 


This routine will return the rounding precision necessary when calculating 
volume information for specify products (Oil calculates to 2 decimal places. Gas 
to zero, etc.). 


15.0 ; Usp UnePrice 

I 


This is the actual procedure that will calculate the Engine records for a given 
deal (volume related STID 8 or 9 type records). 


16.0 i UspjTiessage 


This routine handles ail of the 'progress 4 messages that are issued dunng the 
calculation, rollover, actualization, and etc. type events on the system. This 
routine will optionally post this information to the ApplicationMessages table for 
histoncai reference (audit). 


17.0 = Hfep^pActuailze BaiPurchases 


This is the main driver routine for Step 2 of 4 of the actualization process. 


18.0 j ppj3Aaualize_BaiPurchasesCheck 


This routine will check to see if ail of the meters/wells on a given pipe/field have 
been actualized. If not then it sends back a bad return code. All meters/weils 
are required to be "checked 1 (actualized) prior to balancing of purchase routing 
points 


19.0 ■; 4ispj3Actuaiize_Ba!PurcftasesCl3ar 


This routine is the actual routine that will adjust ail purchase meter imbalances. 
These imbalances are adjusted forward THROUGH the sales point based on 
nomination routing instructions (used as a map). 


20.0 ; Usd cActuaiize BatSaies 


This is the main driver routine for Steo 3 of 4 of the actualization process. 


21.0 


jyspj?Actuaiize_BaiSalesCheck 


This routine will check to see rf ail of the purchase meters/wells routing balances 
(from step 2 of 4) are balanced. If any meter/well on the pipe/fieid is out of 
balance then this routine sends back a bad return code. All meters/wells on the 
pipe/field are required to be 'balanced 1 prior to balancing of the sales points. 


22.0 


&p_pActuattze.BalSaiesClear 


This procedure is the final procedure invoked by the uspjaActuaiize^BaiSales 
main driver procedure, it is responsible for posting imbalance amounts to the 
internal clearing purchase or sales deals. 


23.0 


fyspjaActuaiize_BaiSalesOver 


This procedure attempts to reconcile any outstanding balances that result in 
OVER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map' on how to allocate this volume. 


24.0 


UspjActuaiize.BaiSaiesUnder 


This procedure attempts to reconcile any outstanding balances mat result in 
UNDER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map' on how to allocate this volume. 


25.0 


Usp_pFiillndex 


This procedure will initialize the records within the 'GClndex' table with daily 
entries (for daily indices) and monthly entries (for monthly indices). The monthly 
record entries are ontv on the first day of the month. 


26.0 j Usp_pFilIlndexSingie 


This procedure will populate the 'GCIndex 1 table with a price index entry for a 
SINGLE index. 


27.0 j Usp_pGasinvD_FtIi 


This routine initially populates the daily volumes on the GaslnvD table. These 
are initially populated with zeros (anytime a meter/well is added to a deal). 


28.0 


UspjGasinvDJMomEOM 


This routine is used in the 'Availability area of the EMS system and is used to 
take a given volume amount and propagate that volume amount to ail days in 
the month. 


29.0 \ Usp LonAuditlnfo t 


. This routine is used to cost record to the audit table within the system. 


30.0 


UspjjPackageRevision 


This routine is used to increment the revision number field on the deal. Certain 
types of changes to a deal will automatically increment the revision number on a 
deal and this update is done throuah this routine. 
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Ref#^ 


Stored Procedure Name 


Description/Comments 




1 Icn nPnetflassrfif^attn.nRuies 
VJdp IJr USiwlciodiHiiHailwi irtuic9 


i nis proceours is cxscuieu ^usually oy uiyyeis wu ui« * wcuiwm« a»u 
rOeaiCIassAtabies). It can be executed stand-aione. This procedure will 
ensure that a rAcnrri is rrpat^d in the rDeaiClassRules table for every 
combination of deal classification codes (dcA values on the rOealCIassA table). 


32.0 


Usp^ProaPush 


This routine is used in the Availability' phase of EMS and is used to initially 

nnnriiato a nartw*ttlar mnnth with nwnAfShin interest information, bv metef/well. 

fJUfJUlAlB 3 PfllTIGUlOr fllOriin Willi UWHCIOI Ills (IILGICSl tmwmwMwui «J mciwi*»»BM. 


33.0 


Usp_pPushMeter 


. This.routine is used in the 'Availability* phase of EMS and is used to populate a 
single meter/well ownership interest to its respective deal (package) and volume 

invAntnn/ if Am i *T2 a c I ixuiCX a tt i nx/O^ 
iiivciiiui y tlCfil ^ wadiiivivjoaii i«Ly/t 


34.0 


Usp_pRouteBuiidLegHistory 


This routine creates the 'Leg' records for a given meter/well. When a new route 1 
(LegRef) is defined on the system then this routine will get invoked to initially 
caarj th a *l An' fa hi a with AntriAs in order to allow routino 

occu if IB Ley laUlB Willi BIHiicat '«* wiwo iw oiiwv* luwuuy. 


35.0 


Usp_pRouteBuiidLegHistoryAH 


This routine gets invoked when a production month is initially opened to the 
'Sales' phase. All ACTIVE meters and legs will have their respective leg 1 table 
records populated for that production month by this routine. 




lien nRnntAf^nnvi AnHie.tnrvActLiaiS 


i nis routine gets mvoKeo wnen me siaius or a prouuuuun mufiui uidnycs liuin 
'Sates' to Invoiced'. AH nomination routine instructions (in the 'LegDetaii' table) 

ota than rnntaH ht* ihfe rnt ittno Thte nmvriHAC thA mechanism tO haVA arttiatfi 

ait? in en copieu Dy inis rouuns. i nis piwviucs uio Htcwiaiiwin m nave auiuato 
different than noms while preserving the nom instructions. 


37 0 


1 fen nRmitAPostChanae 


7*hie nrnrarium imml/aW uihanauar g rhanno tn a enACtflP* mtttA ie rAfiHAetAri 

i nis proceoure gets invoKeu wnenever a cnanye iu a a^euiib luuic 10 ic^ubsicu 
(i.e. modifications of volumes between hops). 


38.0 


Uso oRoutePo si Deal Info 


Thie nrnraWtira nafe tm/nira#4 tn 'eooh 1 thA *l AnOAtflli* tahlfi With mtltinn 
* H*9 (JlU&CUUlC IflVwiVCU lO 9BCU U19 UCyWCtail iflUle luuuiivj 

information. This is invoked when new meters/wells are added to deals. 


39.0 


1 Icn nRntitAPnetnAailnfoVols 


i nis proceoure gets invoKeo to populate ins specmw vuiurnca un csu. 01 me 
'LeaOetaif entries (daily) for deal inventory items. 


40.0 . 


r-Usp_pRoutePostDeiete 


This procedure gets invoked whenever a deletion is requested on the routing 
(LegOetail) information. 


41.0 

jj 


jfUspjRoutePostLegRates 

11 


This procedure gets invoked in order to post the rates (fuel, pvr, transport 
gamenng, etc) to each of the Leguetau recoras in ine aaiauase. uauy raxes 
(LegO table) overrides monthly rates (Leg table) and this procedure ensures that 

nhftpiHi f# m M i A jmmAm MkmiNaW 4** m JaM +httt rntltinA nAtC inUfllf A/4 tO t inH atft flit 

pnonty. ir a rate gets cnangeo ior a teg mis routine yets invuiieu to upoaie a« 
existing routes (LegDetaii) records. 




USD pr\QUi6r*05ioai8 


i nis proceoure gets invoKeu tn oiuerio posi voiuniB vouw* it/ iw a sakss hcjii \m 
the LeqOetail table). 




I len nRniitAPnstTranennrt 


i nis proccuure gets invoKeo in oiuer iw ^wst vviumio vuuic *v/ iw a uai»ywtiauuti 
point (in the LegDetaii table). 




Z.I len rOai itaPomnvttl o/iftAtaile 


i nis rouune win remove any/au L&gueiau ^rouuns insuucuuna/ wnen a 
meter/well for a specific deal is removed. 


45.0 $ 


; 4Jsp_pSERPT_GetAdditionalReportlnfo 


This routine is used by all of the standard" reporting procedures to obtain 
specmc report Tteios neeoea wnen running a stanaaiu le^uiu 


46.0 f 


:#Jspj3SERPT_PostReportTdCorTespondence 


This routine will post a 'PackageCorrespondence' table record to a particular 

riAai that ie affaMaW H\# thA 'ctanriarri* rAnnrt hsino run This rotitina is called bv 

ail standard report routines. 




t len nCCPDT DnctRAnnrtTn Distribution 


Thie rmitma ■»j*o* m ranart Wietrihl tttrtft rA/tlf Attt tft thA S^RotsOlJAltAOistrihlitA 

i nis rouune whl post a repon uisuiouuwn icifUBSi 10 uio a&n^»uu6U6uiau muio 
table Thbt i« Aithftr a nnuest to *PRINTER' *SiAAIL' or 'FAX'. 


48.0 


Usd dSERPT PostReoortToQueue 


This rant in a « ussd hv all of the standard reooit routines and will cost an actual 
report request (queue item) to the SERptsQueue table. 


49.0 


Usd dSERPT RunReDOrtAvailConfirms 


This rou tin a « rmnoncihiA for runnino the 'Availability 1 confirm resorts. 


50.0 


Usd dSERPT RunReDortAvailEstimates 


This routino is rasnonsihf a for runnino the 'Avaiiabiiitv' estimate reoorts. 


51 .0 


Usn nSPRPT RunReoortDealCorrfirm 


I nis mi rftna io raannneihta 4nr ninninn thA d ASi onfltlrmatmn rSQOrtS (fTOffl tllS 

deal detail screen on PMS^ 


52.0 


Usp^SERPTJ*unReportlnvoice 


This routine is responsible for running all standard invoice reports. 


53.0 


Usn nSFRPT RunReDOrtRemrttance 


I htS rmittnn io raannneihla 4f\T mnninn ail Standard f Afllll lanCft reOOftS 


54.0 


Usp _pSERPT_RunReportVoueher 


This routine is responsible for running ail standard voucher reports. 




1 ten rtQPPDT ^AtAParamAtArftooiean 
U5P | POETv* 1 ^uBWr otaUlctci ouuicatt 


Thie miifina it* • t( >(u4 iha et^nHarvt rAnnrtrnn rnt ttinAS and convArte RnnlAan 
i nis rouune is useo oy ins stanuaru iBuwiuiiy ■ uum wa miu M^nvciia ouuicoh 

parameters for posbnq on the report queue (SERptsQueue) table. 


uD.U 


1 ten nCXTSDT* QAtADaramAtArDatA 

usp pocrcr* i — oeiMraranicici uaia 


1Thf» mirfinA ; M laH1 j u.. »4«n^Aw4 rannrtinn rntttinAS anH nnnuArts Hat a anH 

i nis rouune ts useo oy tne stanoaro repuiurig luuuuca onu uuiivciu> uaib anu 
date/time parameters for oostinq on the report queue (SERptsQueue) table. 


O/.U 


I t— — «CCDQT CAtADaramatarnanmai 

Usp^pocrlr^ 1 ^oeiArararneierij e«rnai 


IJiIS rOUUne IS USeO Dy the Stanoaro reporting louunes anu converts oeoirnai 

(number) parameters for oostinq on the report queue (SERptsQueue) table. 


58.0 


Usn nSPRPT S etAP a rameteri ntea e r 


This routine is used hv thA standard reDOrttng routines and converts inteoer 
number parameters for postina on the report queue (SERptsQueue) table. 


59.0 


Uspj3SERPT_SetAParameterString 


This routine is used by the standard reporting routines and converts string 
parameters for posting on the report oueue (SERptsQueue) table. 
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Ref#~ 


Stored Procedure Name 


Description/Comments - 


60.0 


Usp^SERPTJ/vhichReport 


This routine is used by the standard reporting routines and ts-responsible for 
determining WHICH report to use. The default reports are in KreportDefauIts 
xaDie. However, any given contract can overnae ine aerauu ^ivreporiuvernaes 
table). 


61.0 


Usp.PSPrice 


This is the mam pricing routine for the volume inventory items (regular 
purchases and sales). 


62.0 


Usp_PSPnceAII 


This is the main procedure for calculating the pnces for a given month on a set 
of deals (volume inventory pricing, ST1D 8 & 9). Parameters to this stored 
procedure dictate the type of price to calculation (Nom or Pipe/Reid Actual and 
Sales versus Purchase, eta). 


63.0 


Usp_P SPriceAny New! n voices Needed 


This routine is responsible for assigning new invoice and remittance numbers to 
the volume inventory table (Gasinv). If new meters/weils (volume entries) get 
entered during the actualization process then this routine wiif ensure they are 
assigned unique numbers. 


64.0 


Usp_PSPriceAssigninvoiceNo 


This routine assigns invoice numbers to ail sales deals when the production 
month is promoted to the 'Invoiced* phase. 


65.0 


Usp_PJSPriceAuto 


This procedure run everyday and checks for any production month either in the 
bales or the Invoiced phase. If any production montns are within these 
phases then this procedure will invoke the calculation routine 
(usp_psPriceAutoMonth) for them. 


OO.O 


Usp PSPnceAutoMontn 


This is the main driver routine for the calculation of an entire month. 


67.0 


Usp^PSPriceComponentsCheck 


This procedure will automatically insert system generated pnce components (like 
WASP or Netback Percentage) to the Engine_Master table. It is invoked by the 
usp_PSPricei procedure when calculating prices on a deal for a given month. 


AO ft 
OO.O it 


JUsp_PSPriceCost 


This is the routine that calculates the 'Other Cos? entries and posts calculated 
results in the Engine table. 


69.0 t 


fiJsp_PSPnceCostAII 


This is the main driver routine for looping through ail of the 'Other Costs 1 in a 
given month and invoking the usp PSPrieeCost routine for each one. 


70.0 I 


jllsp^PSPriceCreateActualEntnes 


This procedure copies the pricing entnes setup on each deal 
(Engine MasterPrice) from nom to actuals. 


71.0 ! 


^lisp.PSPriceMarkActuaiAdjustments 


This procedure gets invoked by the calculation routine to mark any volume 
inventory item (Gasinv) whenever a difference is detected between nominations 
and actuals. 


72.0 rf 


Usp_PSPricePopuiateEngme 


This procedure wiii populate the Engine table FROM the Engine JvJaster table. 
For daily index price entries this procedure wiii automatically propagate the daily 
index price to all days of the month where there is a volume (at least until a new 
pricing entry is found). Onty volume entries are populated here (ST7D 8 & 9). 


73.0 j 


\ Msp.PSPriceTransportAII 


This routine calculates all of the transport costs for a given production month. 
These transport costs (and volumes) are posted in the Gasinv <pricetype*3) 
table and deals are posted (if needed). These deals are tagged with the specific 
transport contract 


74.0 j 


JJsp.PSPriceWASPCalc 


Determines and resolves ail wasp 'Common' and 'Dedicated* pools. Dedicated 
pools are sanctioned sates. This is the main driver procedure for the wasp 
portion of the calculation. Third party (pool 3 none ) are aiso processes wiinin 
this procedure but not for the intent of obtaining a price for them, totals used 
primarily for profit margin reporting. 


75.0 


Usp_PSPriceWASPCalcResoiveDriver 


This is the main driver component for driving the WASP calculation. 


76.0 


Usp.PSPriceWASPCaicResoiveN 


Traces back sales totals from all sales meters back to their originating purchase 
points. The table updated here is the WASPResolvedRouting table. The 
'LegDetaif table is used extensively in this calculation. This is a highly 
ITERATIVE process. 


77.0 


Usp_ PSPnceWASPCalcResolveSatesN 


This procedure creates the entries in the WASPResolvedRouting table and 
posts original sales volumes and amounts. This is done just prior to the routine 
that resolves these safes totals back to the purchase points. 


78.0 


Uso PSPriceWASPCaicSalesN 


Sums ail WASPabie sales by sales meter into the WASPSaiesMeterTotais table. 


79.0 


Usp_PSPriceWASPC!earMonth 


This routine runs when a production month is promoted to 'Completed' phase. 
Any volume inventory items (Gasinv and/or GasinvO) or routing items 
(LegDetaii) that contain zeros are removed so that onty relevant information is 
stored in the database for historical purposes. 


80.0 


Usp_PSPriceWaspDivieOutProceedsN 


This procedure is the main procedure that will distnbute the proceeds from those 
deals that have been designated to have their respective proceeds distributed 
via ine rtnanciai uvemoes setuo on ine ucai. 


81.0 


Usp^ProdVolSet 


This routine is used in the 'Availability' pnase to setup the ownership interest on 
a particular pipe/fieid and meter. ProdSum and ProdVol tables for the current 
production month are populated with this procedure. 
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Ref#- 


Stored Procedure Name 


Description/Comments — 


82.0 


Usp.ProdVoiSetAll 


This routine is used in the 'Availability' phase to setup the ownership interest on 
ail pipe/fields and meters. This routine invokes the usp .ProdVolSet routine for 
each meter/weil in the loop. 


83.0 


Usp^PSRoiiover 


This routine gets invoked when a production month goes from 'Availability' to 
'Sales 1 and is responsible for copying deal information month-to-month. 


84.0 


UspJ=»SRoiloverPopActuais3 


This routine gets invoked by the usp_PSRoilover routine and is responsible for 
populating noms with previous 3 months actuals numbers (primanly used for 
Oil). 


85.0 


Usp_PSRoiloverPopNoms 


This routine gets invoked by the usp_PSRollaver routine and is responsible for 
populating noms with previous months nom numbers. 


86.0 


Usp_j3StatusChanged 


This routine gets invoked anytime the production month status is changed 
(inrtial,Avaiiabiiity ( Saies t lnvoiced,Accounting t Completed). Other routines are 
invoked depending on the from and to status for the production month. 


87.0 


Usp_w/ 


Any stored procedure that begins with Usp_w_ has been setup as a one time 
only procedure that is used to correct any database items/etc. These 
procedures can be permanently deleted and have no impact on existing 
functions within EMS. i 



Application Software 



Technical Skill Set Required 



SupppS and maintenance of the Energy Management System requires the following technical skill set. 



Ref # * 


fSkill Set 


Used For... 


1.0 1 

is 


ySQL-Server (Transact SQL) 


All data is stored in MS SQL-Server database tables. This data is accessed via direct SQL 
statements (embedded in windows applications, stored procedures and reports). There are 
several database views that have been setup to access aggregated information (for performance 
and consistency). In addition all of the cntical calculations and time consuming procedures (like 
the main EMS calculation, routing and rollover process) are written as Transact-SQL stored 
procedures (and documented in this manual). 


ZO | 


^Delphi OJ5 +) 
(indudes Delphi 3* party tools) 


AH client applications are written using this particular RAD toot/ In addition to knowing the 
standard components that come with this tool any of the 3* party tools (documented in this 
manual) are used extensively. See the 3* party tools listed in the Tools Utilized' section for more 
details. 


3.0 i 


i iCrystal Reports <V8.0) 


All reporting within EMS is done utilizing this tool from Seaqate software. 



ClienS Server Applications w/Tools Utilized 

This particular section contains the high level documentation relative, to the Energy Management System software 
application. Each item documented is uniquely numbered to aid in reviews and/or future modifications. 



Ref# 


Item 


Response 


Comments ' 


1.0 


Client Application 


Energy Management 
System 


The Energy Management System is written in Delphi 5 
(service pack 3 applied). Third party controls and 
components were used in the development See other 
areas of this matrix for 3* party tools utilized. 


2.0 


Client Application 


Producer Control 
Center 


The Producer Control Center is written in Delphi 5 (service 
pack 3 applied). Third party controls and components were 
used in the development. See other areas of this matrix for 
3* party tools utilized. This application provides a restricted 
view of information specific to the company/contact that is 
running the application. The data viewed is the same data 
that is maintained in the EMS system. 


3.0 


Server Application 


Software Experts, Inc. 
SECrystat (V8.00) 


All reporting done within EMS utilizes Crystal reports. This 
server application runs and stores alt output reports for the 
system. Besides storing an electronic copy of the report, 
this server can distribute to a printer, fax folder OR an email 
address if instructed by the EMS application. 


4.0 


Server Application 


Software Experts, Inc. 
SEFax (V2.00) 
(outbound faxing) 


Some output repons (from SECrystal) are designated to be 
faxed. This software is responsible for faxing ail of the 
reports th?* were designated by EMS to be faxed. 
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Ref* 


Item 


Response 


Comments: • — ^ - * 


5.0 


Server Application 


Software Experts, Inc. 
SEServer (V2.00g) 
(database request server) 


All database requests for the Energy Management System 
AND the Producer Control Center go through this database 
server component This server application typically runs on 
the same machine as the actual database. 


6.0 


3™ Party Tooi/Library 


Adobe 

Acrobat Reader (V4.0 +) 


This free tool is used to view reports from EMS. The default 
for all resorts is to orint them to a PDF format This output 
format is 'overrideable' by the user when the report is 
submitted. Other formats like Excel, Word, Text, eta are 
also supported. 


7.0 


3" Party Tool/Library 


Seaqate Software 
Crystal Reports (V8.00) 


AH resorts are written usina the Crvstai reoortina tool from 
Seagate Software). In addition, the report server 
(SECrystai) utilizes the main Crystal reporting FREE runtime 
libraries to run these reports for all EMS client reauests. 


80 


3 ra Party Tooi/Library 


Dalco Technologies 
DbOvernet (V2..00) 


Delphi VCL components that provide internet (TCP/IP) 
access. The SEServer application utilizes this middleware. 


9.0 


3"° Party Tooi/Library 


TurboPower Software 
Asynch Pro (V3.04) 


The SEFax fax server application utilizes this 3'° party 
Delphi VCL component list for sending and/receiving faxes. 
The SECrystai reporting server application uses this library 
to write out 'fax ready* files. 


10.0 


3 ra Party Toot/Library 


TurboPower Software 
Orpheus (V3.08) 


Manv of the online screens for ail ciient and server 

IVlally VI 11 lw WHIM IQ wm CCIiw IUI OU V**(C*H OIIU wCI VCi 

applications utilize the Orpheus controls for screen gnd fists, 
combo boxes, eta The server applications were written with 
this tool set also. 


11.0 


3™ Party Toot/Library 


TurboPower Software 
SysToois (V3.02) 


Many of the online screens for all client and server 
applications utilize the SysToois components for string 
manipulations, spawning tasks, eta 


12.0 ^3" Party Tool/Library 


Woi)2Woll Software 
InfoPower 2000.17 


Manx/ nf the online screens for all client and server 

applications utilize these controls for screen grid lists, 
combo boxes, eta The server applications were written with 
this tool set also 


13.0 JJ3 <U Party Tool/Library 


Inner Media,Software 
Oynazip (V4.00) 


These are Delphi software components that are for 
compression/decompression of files to and from the server. 
This is used bv both the client and server aooiications. 


14.0 pT Party Tooi/Ubrary 


Public Domain 
TEmaii(VZ10) 


This is a Oeiphi software component and is used by the 
client and server applications. It is responsible for the email 
interface. 


'15.0 3 3" Party Tooi/Library 


TMS Software 
TwebUpdate (V1 .00) 


This is a Delphi software component that provides for 'over 
the internet* automatic software upgrades. The client 
applications each utilize this component 


16.0 ^ Party Toot/Library 


Skyline Software, inc. 
ImageLib Suite (V5.00) 


These are Delphi software components that provide for 
graphic images displayed within the application. In addition, 
this software provides scanner input capabilities. 



CuenJ^ppucations, Module List/Descriptions 

This particular section contains the high level documentation relative to each software application module within 
the Energy Management System. Each item documented is uniquely numbered to aid in reviews and/or future 
modifications. The application reference listed below will either indicate EMS (Energy Management System) 
and/or PCC (Producer Control Center). This shows the level of interoperability between these two client 
applications. All of these modules are written in Delphi (Object Pascal, (Visual)). 



Ref#* 


Module Name 


Module Type 


Application 


Description/Comments: 


1.0 


DBAddress 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Address ('Company and Contact 
Addresses') table. 


2.0 


DBCommonDatabase 


Data Module 


EMS 
PCC 


This module is responsible for setting ail of the common 
properties for all other data modules within the system. 
Prior to invoking a query, ail other database modules will 
invoke methods within this module to set communication 
ports, maximum number of records, eta This module also 
stores the actual user id and contains methods for 
accessina this field. 
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Ref#- 


Module Name 


Module Type 


Application 


Description/Comments — 


3.0 


DBCommonFiieOperations 


Data Module 


EMS 
PCC 


This module handles all of the 'flat file' -operations 
(compressing/decompressing/etc.) that is involved with the 
applications. Any temporary files that heed to be created 
are also controlled by this data module. 


4.0 


DBCompany 


Data Moaule 


EMS 
PCC 


This module contains all of the database communication 
components for the Company ('Company Information') 
table. 


5.0 


OBContactFunction 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ContactFunction ('Roles within their 
respective companies that contacts play") table. 


6.0 


OBContacts 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Contacts (Individual contacts within 
companies') table. 


7.0 


OBContactGroup 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ContactGroup (Links contacts to 
groups they may be affiliated with) table. 


8.0 


DBContact_GroupNames 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Contact_GroupNames (table contains 
a record for each group within the system) table. 


9.0 


DBEngine 


Data Module 


EMS 


This module contains all of the database communication 
components for the Engine (contains transaction records 
for each volume inventory transaction item associated with 
the deal) table. 


10.0 


DBEngine_Master 


Data Module 


EMS 


This module contains all of the database communication 
components for the Engine_Master (User enterable pricing 
area 'header* record) table. 


11.0JS 


; OBEngine_MasterPrice 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Engine_MasterPrice (User enterable 
pncing area 'detail' recordsTpnce tags)) table. 


12.0 DBEngine_Transactiontjst 


Data Modufe 


EMS 


This module contains all of the database communication 
components for the Engine.TransactionUst (transaction 
descriptions) table. 


13.0 DBExceptionCategones 

a 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ExceptionCategohes ('Reasons for 
Exceptions') table. 


14.0 DBExceptionList 


Data Module 


EMS 
PCC 


This module contains ait of the database communication 
components for the ExceptionList ('Actual Exception 
Events) table. 


15.0 IP DBGasinv 


Data Modufe 


EMS 


This module contains all of the database communication 
components for the Gasinv (Volume Inventory 'header 1 ) 
table. 


16.0 ^; DBGasinvO 


Data Module 


EMS 


This module contains ait of the database communication 
components for the GasinvO (Volume Inventory Daily 
'detail) table. 


tz.o 


DBGCButton 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the GCSutton ('Business Functions') 
security table. 


18.0 


DBGCIndex 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCIndex (Daily & Monthly Price 
Indices) table. 


19.0 


DBGCSecunty 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the GCSecurity (Security Authorizations) 
for the applications. 


20.0 


DBGCUser 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the GCUser (User Profiles) table within the 
applications. 


21.0 


DBimages 


Data Module 


EMS 


This module contains ail of the database communication 
components for the SEimages (company logos, etc.) table 
within the application. 


21.0 


DBindexBasketLink 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the IndexSasketUnk (Links actual indices 
to a particular basket) table within the application. 


22.0 


DBIndexBaskets 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the IndexBaskets (Grouping of indices to 
be used in a 'simple' averaging calculation) table within the 
application. 
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Ref# 


Module Name 


Module Type 


Application 


Description/Comments^ 


23.0 


DBlndexRef 


Data Module 


EMS 
PCC 


This module contains all of the database-communication 
components for the IndexRef (Each price index within the 
system contains a record entry here) table within the 
application. 


24.0 


DBK 


Data Module 


EMS 


This module contains all of the database communication 
components for the K (Contracts table within the 
application). 


25.0 


DBKNetSack 


j DataMoaule 

i 
f 


EMS 


This module contains ail of the database communication 
components for the KNetBack (Contracts Netback 
Percentage Tiers) table within the aopiication. 


26.0 


DBKNotes 


i Data Module 

j 


EMS 


This module contains all of the database communication 
components for the KNotes (Contract Notes) table within 
the application. 


27.0 


DBKProducts 


| Data Module 

I 


EMS 


This module contains all of the database communication 
components for the KProducts (products that are available 
within contracts) table within the application. 


28.0 


OBKReportDefauits 


i Data Module 

i 


EMS 


This module contains all of the database communication 
components for the KReportDefaults (standard report 
defaults) table within the application. 


29.0 


OBKReportOvemdes 


| Data Module 

I 


EMS 


This module contains all of the database communication 
components for the KReportOverrides (standard report 
overrides for a contract) table within the application. 


30.0 


DBKServices 


DataModuie 


EMS 


This module contains ail of the database communication 
components for the KServices (services that are available 
within contracts) table within the application. 


31.0 

c 


OBLeg 

} 


Data Module 


EMS 


This module contains all of the database communication 
components for the Leg (available routes and rates for the 
production month) table within the application. 


32.0 2 

i. j: 


f OBLegO 


Data Module 


EMS 


This module contains all of the database communication 
components for the LegD (available DAILY routes and 
rates for the production) table within the application. 


33.0 y 


I DBLegOetaii 


Data Module 


EMS 


This module contains all of the database communication 
components for the LegOetaii (specific routing instructions 
for ail volumes purchased and sold) table within the 
application. 


34.0 y 


h DBLegRef 


Data Module 


EMS 


This module contains ail of the database communication 
components for the LegRef (master list of routes and rates) 
table within the application. 


35.0 | 


; DBLocations 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for SELocations (locations) table within the 
application. 


36.0 H 


I DBMessages 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SEMessages (system messages) table 
within the application. 


37.0 ¥ 


" DBMeter 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Meter/Well table within the application. 


38.0 


DBMeterAllocations 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterAIIocations (ownership interests 
in volume from a meter/well) table within the application. 


39.0 


DBMeterNotes 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterNotes table within the 
application. 


40.0 


OBMeterRates 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterRates (pressure base, Btu factor, 
etc. from a meter/weil) table within the application. 


41.0 


DBMiscQuenes 


Data Module 


EMS 
PCC 


This module contains ail of the miscellaneous quenes that 
were created to enable views of various tables within the 
application. 


42.0 


DBPackage 


Data Module 


EMS 


This module contains all of the database communication 
components for the Package (Deals) table within the 
application. 


43.0 


DBPacKageCorrespondence 


Data Module 


EMS 


This module contains ail of the database communication 

- 4nr tH A PflCfcaoeCorFBSnnnHianfta /alorfrnnir 
COmpOnentS TOT U l» raw\aycuuncomjnucnce ^CSiSCuOniC 

copies of documents associated with deals) table within 
the application. 
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Ref 


Modulo Name 


Module Type 




no«f*riftttonJCaffliTiiints 
U6«vi i^uuiiiwwiiuiioiiia 




44.0 


DBPackageCosts 


Data Module 


EMS 


This module contains ail of the database-communication 
components for the PackageCosts ('Gfher Costs' 
associated with deals) table within the aDDlication 

CI99UMOICU Will t UmBKP^ www fc« < *"r " BW *' 




45.0 


DBPipeField 


Data MoauJe 


EMS 


This module contains ail of the database communication 
components for the PipeFieid (Pipe/Field information) table 
u/ithtn the anniication 

win 4 ui ills oiytyin^ouui i* 




46.0 


DBPriceComponents 


Data Module 


EMS 


This module contains ait of the database communication 
components for the PriceComponents (tags to associate to 
each nortton of a once) tabfe within the aDDlication 




47.0 


DBPriceDesc 


Data Module 


EMS 


This module contains ail of the database communication 
components for the PriceDesc (Deal free form price 
description) table within the application. 




48.0 

i 


DBPrinterDef 


Data Module 


EMS j This module contains ail of the database communication 
1 components for the PrinterOef (printer definitions) table 
I within the application. 




49.0- | DBProcessingCodes 


Data Module 


EMS 
PCC 


j This module contains ail of the database communication 
components for the SEProcessingCodes (reference code 
description) table within the application. 


! 


50.0 


DBProcessingCodeTyes 


Data Module 


EMS 


This module contains ail of the database communication 
components for the SEProcessingCodeTypes (type codes 
that classify sets of reference codes) table within the 
application. 




51.0 | DBProducerMessage 

i 


Data Module 


PCC 


This module contains all of the database communication 
components for the ProducerMessage (dynamic messages 
posted to producers) table within the application. 


52.0 i DBProalnterest 

i 


Data Module 


EMS 


This module contains all of the database communication 
comoonents for the Prodinterest (Availability royalty 
interests) table within the application. 


! 53.0 |||DBProdPKG 


Data Module 


EMS 


This module contains aft of the database communication 
components for the ProdPKG (Availability deal ID to 
ProdVol cross reference) table within the application. 


54.0 1 


HOBProdSum 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdSum (Availability summary totals 
by meter/well) table within the application. 


55.o ;; 

3. 


DBProdVoJ 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdVol (Availability detail owner 
interest totals by metei/weil) table within the application. 


1 56.0 I 


IDBrDealCJass 


Data Module 


EMS 


This module contains all of the database communication 
components for the rDeaiCIass (All of the available deal 
classifications) table within the application. 


57.0 \ 


ipBrOeaiCJassA 


Data Mnrftiio 


EMS 


This module contains alt of the database communication 
components for the rOeaiCIassA (all possible answers 
available to the deal class rules (rDeaiCIass table)) table 
within the application. 


58.0 


OBrOeaiCIassRules 


Data hAf\fiti\a 


EMS 


This module contains all of the database communication 
components for the rDeaiClassRules (all rules associated 
with every combination of deal classification) table within 
the application. 


59.0 


DBrGasMonth 


Data MnHiHo 


EMS 
PCC 


This module contains all of the database communication 
components for the rGasMonth (an entry exists here for 
every possible month within the system, with status 
information) table within the application. 


50 0 


DBRptsControt 


Data Module 


EMS 
PCC 


This module represents the main driver module for 
submitting reports. 


61.0 


OBRptsExecutedStats 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsExecutedStats (Execution 
statistics for reports) table within the application. 


62.0 


DBRptsGroupitems 


Data Ma^iiIa 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsGroupltems (List of reports 
available within each tab/foider) table within the 
application. 


63.0 


DBRptsGroups 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsGroups (List of all tabs within 
each reportinq folder) table within the application. 
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Ref#^ 


Module Name 


Module Type 


Application 




64.0 


DBRptsitemOetaii 


Data Module 


EMS 
PCC 


This module contains all of the database-communication 
components for the SERptsltemDetaO .(List of specific 
reports available throughout all folders and tabs) table 
within the application. 


65.0 


DBRptsitemParms 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsltemParms (List of all report 
parameters available to each specific report) table within 
the application. 


66.0 


OBRptsQueue 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsQueue (actual report 
submission queue) table within the application. 


67.0 


OBRptsQueueOistnbute 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueueOistribute (report 
distribution instructions area) table within the aopiication. 


68.0 


DBRptsQueueNottfy 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsQueueNotify (report notification 
instructions area) table within the aopiication. 


69.0 


DBRptsSchedute 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsScheduie (report schedule 
definition area) table within the application. 


70.0 


DBRptsScheduieaReports 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsScheduiedReports (reports 
belonging to schedule definition area) table within the 
application. 


71.0 


DBRptsScheduIeGraups 

3 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsScheduleGroups (report 
schedule groups definition area) table within the 
application. 


Nlo | 


OOBRptsScheduleUserGroups 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsScheduleUserGroups (user list 
belonging to a specific schedule group definition area) 
table within the application. 


73.0 1 


DBRptsTabiesUsea 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsTabiesUsed (tables, views and 
stored procedures used by each report area) table within 
the application. 


74.0 


DBStoredProcedures 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for accessing and invoking all stored 
procedures and functions on the application. Each of 
these procedures are setup as methods within this class 
and this particular dass acts as a common wrapper for 
invoking these DB procedures. 


75.0 I 


L,RTCrystaiDriverParseMerno 

sis: 


Business Rules 


EMS 
PCC 


This module contains all of the string parsing routines used 
to store reporting parameters, formulas and selection 
criteria. 


. 76.0 


RTDBAddress 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
addresses (Address table) are within this particular 
module. 


77.0 


RTDBCompany 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
companies (Company table) are within this particular 
module. 


78.0 


RTDBContactFunction 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact function (ContactFunction table) are within this 
particular module. 


79.0 


RTDBContacts 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contacts (contacts table) are within this particular module. 


80.0 


RTDBContact__Group 


Business Rules 


EMS 
PCC 


Alt business rules and edits associated with the application 
contact group relationships (ContactGroup table) are within 
this particular module. 


81.0 


RTDBContactJ3roupNames 


Business Rules 


EMS 


All business rules and edits associated with the application 
contact group names (Contact jGroupNames table) are 
within this particular module. 


82.0 


RTDBEngine 


Business Rules 


EMS 


Alt business rules and edits associated with the application 
engine pricing transaction (Engine tabie) are within this 
particular module. 
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Ref#> 


Module Name 


Module Type 


Application 


Description/Comments 


83.0 


RTDH&iaine Master 


Business Rules 


CMC 


ah husmess rules and edits associated with the application 
engine pricing entry (Engme.Master table) are within this 
particular module. 


84.0 


RTDBEngineJMasterPrice 


Business Rules 


EMS 


All business rules and edits associated with the application 
enaine nricina cotTiDonents (w/orice tags) entry 
(Engine JWasterPrice table) are within this particular 
module. 


85.0 


RTDBEnaine Transaction List 


Business Rules 




ah husmess rules and edits associated with the aoolication 
engine transaction master list (EngineJTransactionList 
table) are within this particular module. 


86.0 


RTDB&eceDlionCsieaones 


Business Ruies 


EMS 
PCC 


ah hustness rules and edits associated with the aoolication 
exception categories (ExceptionCategories table) are 
within this particular module. 


87.0 


RTDBExceptionList 


Business Rules 


EMS 
PCC 


Ail business rules and edits associated with the aoolication 
exception list (ExceptionList table) are within this particular 
module. 


88.0 


RTDBGasinv 


Business Rules 


EMS 


All hticinpss rules and edits associated with the aoniicstion 
volume inventory transaction header (Gaslnv table) are 
within this particular module. 


89.0 


RTDRfiaQlm/D 


1 Business Rules 

i 


PM<? 


AH htictnoee mi ac anH edtfe acennated with th*» ssnn(ir*atirtn 
Mil uu*MficSS f UIQS csnu cuils assuwaicu vvhii uic dppiii*ctuujj 

volume inventory transaction detail daily (GaslnvD table) 
are within this particular module. 


90.0 


RTDBGCButtnn 


Business Ruies 


ClUIC 
CIVIO 

PCC 


Mil ousiness ruies ana cans aAauwaieu wim ine application 

business functions (GCButton table) are within this 
particular module. 


91.0 


RTDBGCIndex 

1 » • WUwWII IUCA 


Business Rules 


cue 

CJViO 

PCC 


All hticinoctt mfA* snri wiite associated with the annlieatinn 
Mil UUSincSS lUlOS ajiu CUILS Mauwaicu vviui uio appiiuauwti 

price indices (GCIndex table) are within this particular 
module. 


92.0 


» RTDBGCSeeiintv 


Business Rules 


CMC 

PCC 


All ht feincMtt miA« and Adit* associated with the annlicatmn 

security authorizations (GCSecurity table) are within this 

nartirtilar module 


93.0 | ;l?TDBGCUser 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
users (GCUser table) are within this particular module. 


94.0 


CHTDBlmages 


Business Rufe« 


CMC 
CIVIO 


ah KtietnMs mlM and edits associated with the annlication 

graphic images (SEZmages table) are within this particular 
module. 


95.0 


; RTDBIndexSasketLink 


Business Rttloe 

uuanic99 r\ujcs 


CMC 
CIVIO 

PCC 


ah hiicinoett rules and edits associated with the aoolication 
index pnee basket link (IndexBasketUnk table) are within 
this particular module. 


96.0 


[RTDBInaexBasKets 

ry 


Business Rules 

www iBwa • \yic3 


CMC 
CJYIO 

PCC 


ah hti«tness rules and edits associated with the aoolication 

Ml* PUSH ICOS IUIB9 Oliu CWw naawwwisu *■ 'W • uio b^iimiuwii 

index price baskets (Indexfiaskets table) are within this 
particular module. 


97.0 


IRTDBIndexRef 


Business Rtilee 


CMC 

CIVIO 

PCC 


ah hitctnoee ntlM and edits- associated with the annlication 

price index master list (IndexRef table) are within this 
narticuiar module. 


98.0 


RTDBK 


Business Rules 


EMS 


All business ruies and edits associated with the application 
contracts (K table) am within this particular module. 


99.0 


RTDBKNetBacK 


Business Rules 


CIVIO 


ah hureiness rules and edits associated with the aoolication 
contract netback pricing tiers (KNetBack table) are within 
this particular module. 


100.0 


RTDBKNotes 


Business RiiIaq 


CMC 
CIVIO 


ah hiicmocc rules and edits associated with the annlication 

contract free form note area (KNotes table) are within this 
particular module. 


101.0 


RTDBKProducts 


Business Rules 


CMC 
CIVIO 


Ait hticitness rules and edits associated with the aoolication 
contract products area (KProducts table) are within this 
particular module. 


102.0 


RTDBKReportDefauits- 


Business Rules 


CIVIO 


ah hticino«Q niles and edits associated with the anniicattnn 
contract standard report defaults area (KReportDefeuits 
table) are within this particular module. 


103.0 


RTDBKReportOverndes 




CMC 
CMo 


All Ktic»mACc nif0« and edits a^SnnatAh u/tfh tha onrtU/^ttnn 

Mil DUSiness ruies aiiu cuiw aaauuaieu wtui inB appucauon 

contract standard report overrides area (KReportOverrides 
table) are within this particular module. 


104.0 


RTDBKServices 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract services area (KServices table) are within this 
particular module. 
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Ref #^ 


Module Name 


Module Type 


Application 


Description/Comments- 7 - r * ; - ^ - 


105.0 


RTDBLeg 


Business Rules 


EMS 


Alt business rules and edits associated jwith the application 
leg (monthly) area (Leg table) are within this particular 
module. ~ 


106.0 


RTOBLegO 


Business Rules 


EMS 


All business rules and edits associated With the application 
leg (daily) area (LegO table) are within this particular 
module. 


107.0 


^^^^^^ f"^ ■ 

RTDBLegOetaii 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg detail (main routing) area (LegDetaii table) are within 
this particular module. 


lUo.O 


RTDBLegRef 


Business Rules 


EMS 


AH business rules and edits associated with the application 
leg master list area (LegRef table) are within this particular 
module. 




RTOBLocations 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
locations (SELocations table) are within this particular 
module. 


110.0 


RTDBMessages 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
messages (SEMessages table) are within this particular 
module. 


111.0 


RTDBMeter 


Business Rules 


EMS 


All business rules and edits associated with the application 
meters (Meter table) are within this particular module. 


112.0 


RTDBMeterAHocstions 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter ownership allocations (MeterAllocations table) are 
within this particular module. 


113.0 


RTDBMeterNotes 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter comment areas (MeterNotes table) are within this 
particular module. 


114.0 ] 


^RTDBMeterRates 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter rate areas (MeterRates table) are within this 
particular module. 


115.0 


ifTDBPackage 


Business Rules 


EMS 


All business rules and edits associated with the application 
deals (Packaqe table) are within this particular module 


116.0 : 


; RTDBPackageCorrespondence 


Business Rules 


EMS 


* All business rules and edits associated with the application 
deal correspondence (PacKageCorrespondence table) are 
within this particular module. 


117.0 ~j 


RTDBPackageCosts 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal 'Other Costs' (PackageCosts table) are within this 
particular module. 


118.0 


9 RTDBPipeField 

r S 
if; £ 


Business Rules 


EMS 


All business rules and edits associated with the application 
pipes/fields (PipeReld table) am within this particular 
module. 


119.0 


RTDBPriceComponents 


Business Rules 


EMS 


All business rules and edits associated with the application 
price components (PrfceComponents table) are within this 
particular module. 


120.0 


, RTDBPriceOesc 


Business Rules 


EMS 


AH business rules and edits associated with the application 
deal pricing free form text area (PriceOesc table) are within 
this particular module. 


121 .0 


RTDBPrinterOef 


Business Rules 


EMS 


All business rules and edits associated with the application 
printer definitions (PrinterOef table) are within this 
particular module. 


122.0 


RTDBProcessingCodes 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
processing codes (SEProcessingCodes table) are within 
this particular module. 


123.0 


RTDBProcessingCodeTypes 


Business Rules 


EMS 


All business rules and edits assooated with the application 
processing code types (SEProcessingCodeTypes table) 
are within this particular module. 


124.0 


RTDBProdlnterest 


Business Rules 


EMS 


All business rules and edits associated with the application 
'Availability* royalty interests (Prodinterest table) are within 
this particular module. 


125.0 


RTDBProdPKG 


Business Rules 


EMS 


All business rules and edits assooated with the application 
'Availability* deal to ProdVol crossneference (ProdPKG 
table) are within this particular module. 


126.0 


RTDBProdSum 


Business Rules 


EMS 


All business rules and edits associated with the application 
'Availability 1 monthly meter summary (ProdSum table) are 
within this particular module. 


l£/.U 


RTDBProdVol 


Business Rules 


EMS 


All business rules ana eaits assooated with the application 
'Availability' monthly ownership volume (ProdVol table) are 
within this particular module. 
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Module Name 


Module Type 


Application- 


Description/Comments **~* r - - 


128.0 


RTDBrOeaiClass 


Business Rules 


EMS 


All business ruies and edits associated with the application 
deal classification options (rDeaiCIass:tabIe) are within this 
particular module. ~ 


129.0 


RTDBrOeatClassA 


Business Rules 


EMS 


All business ruies and edits associated with the application 
deal classification answers (rOeaiCIassA table) are within 
this particular module. 


130.0 


RTDBrOeaJCIassRuies 


Business Rules 


EMS 


All business ruies and edits associated with the application 
deal classification wasp ruies (rDeaiClassRules table) are 
within this particular module. 


131.0 


RTDBrGasMonth 


Business Ruies 


EMS 
PCC 


All business ruies and edits associated with the application 
production month (rGasMonth table) are within this 
particular module. 


132.0 


RTDBRptsExecutedStats 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
execution statistics for reporting (SERptsExecutedStats 
table) are within this particular module. 


133.0 


RTDBRptsGroupitems 


Business Ruies 


EMS 
PCC 


All business ruies and edits associated with the application 
tab items for reporting (SERptsGroupltems table) are 
within this particular module. 


134.0 


RTDBRptsGroups 


Business Rules 


EMS 
PCC 


Ail business rules and edits associated with the application 
tabs for reporting (SERptsGroups table) are within this 
particular module. 


135.0 


RTDBRptsitemOetaii 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
report files used for reporting (SERptsJtemDetaii table) are 
within this particular module. 


136.0 j RTDBRptsitemParms 


Business Ruies 


EMS 
PCC 


All business ruies and edits associated with the application 
report file parameters used for reporting 
(SERptsitemParms table) are within this particular module. 


138.0 | ^RTDBRptsQueue 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report submission queue used for reporting (SERptsQueue 
table) are within this particular module. 


139.0 J HTDBRptsQueueDistnbute 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report queue distribution options used for reporting 
(SERptsOueueOIstribute table) are within this particular 
module. 


140.0 ; 


" "RTDBRptsQueueNotify 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report queue submission notifications used for reporting 
(SERptsQueueNotify table) are within this particular 
module. 


H1.0 ; 


fRTDBRptsScheoule 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
report schedules used for reporting (SERptsSchedule 
table) are within this particular module. 


142.0 j 


fflTDBRptsScheduiedReports 


Business Rules 


EMS 
PCC 


All business ruies and edits associated with the application 
report schedule actual reports used for reporting 
(SERptsScheduiedReports table) are within this particular 
module. 


143.0 


RTDBRptsScheduleGroups 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report schedule groups used for reporting 
(SERptsScheduleGroups table) are within this particular 
module. 


144.0 


RTDBRptsScheduieUserGroups 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report schedule users (in groups) used for reporting 
(SERptsScheduieUserGroups table) are within this 
particular module. 


145.0 


RTDBRptsTablesUsed 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report tables used for reporting (SERptsTabiesiised table) 
are within this particular module. 


146.0 


RTMessageStackCIient 


Business Ruies 


EMS 
PCC 


This particular module is responsible for maintaining the 
current list of messages that wiii be displayed to the user. 
This module wiii provide for the storing of up to 50 
messages (in memory tables) in between enter button or 
mouse clicks. This provides for any/all error messages 
concerning a specific event to be displayed at once versus 
one at a time. 


147.0 


FmAbout 


Form 


EMS 
PCC 


This form provides descriptive information about the 
application (version number, copyright notice, email and 
website support finks, etc). 
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148.0 


FmActuaiizePurchases 


Form 


EMS 


This form provides the method for performing (Step 2 of 4) 
of the actualization process within EMS. 


149.0 


FmActuaiizeSaies 


Form 


EMS 


This form provides the method for performing (Step 3 of 4) 
of the actualization process within EMSz. 


150.0 


FmAddressOetaii 


Form 


EMS 


This form provides for the updating of addresses for 
contacts and companies. The table that gets updated 
behind the scenes is the Address table. 


151.0 


FmAddressUst 


Form 


EMS 


This form provides a list of all available addresses that 
have already been setup for a company. Options on this 
form include an ability to change, add or delete address 
lines from the list 


152.0 


FmBusinessFunctionsOetaii 


Form 

i 


EMS 


This form provides for the updating of the business 
functions that are available within the Energy Management 
System AND the Producer Control Center. The table that 
gets updated (behind the scenes) is the 'GCButton' table. 


153.0 


FmBusinessFunctionsList 


Form 


EMS 


This form provides a list of all available business functions 
that are currently within the Energy Management System 
AND the Producer Control Center. Options exist here to 
add, change and delete business functions. Eacn of these 
business functions represent areas within the application 
for setting system security. 


154.0 


FmCommon 


Form 


EMS 
PCC 


This form provides for all of the common properties used 
by ali forms. This form can be accessed via the main 
menus by selecting system properties. -MI of the color 
schemes, graphic images, eta that are used by the system 
are included on this form. At runtime, all other forms within 
the system will Invoke public methods within this form to 
set their respective screen fields. 


155.0 j^mCompanyOetaji 

15 


Form 


EMS 


This form provides the mechanism for updating detail 
information pertaining to a specific company. This includes 
identification of a primary company address. 


156.0 gFmCompanytist 


Form 


EMS 


This form provides a gnd list of ail companies that are 
currently stored on EMS. Options on this form include 
extensive lookup and tab options. 


157.0 rfmContactOetaii 


Form 


EMS 


This form provides the form for updating detail information 
about a contact at a particular company. This includes 
group memberships, functions, etc. 


158.0 ; 


;p ;FmContaaFunctionOetaii 


Form 


EMS 


This form provides the mechanism for associating a 
contact within a company to a specific job function at that 
company (i.e. Accounting production, etc.). 


159.0 | 


^FmContactGroupDetail 


Form 


EMS 


This form provides the mechanism for creating or updating 
contact groups on the system. 


160.0 j 


IfmContactGroupUst 


Form 


EMS 


This form lists all available contact groups on the system. 
Options on this form include the ability to add, change or 
delete a contact group. 


161.0 ! 


FmContactUst 


Form 


EMS 


This for lists all contacts within all companies. Options on 
this form include an ability to add change or delete a 
specific contact (with appropriate security). In addition, 
there are extensive data lookup capabilities. 


162.0 


fmContactSecuntyAuth 


Form 


EMS 


This form provides for the entry of external company 
security authorization rules (i.e. Enabling access to 
Producer Control Center, eta). 


163.0 


FmContractOetaii 


Form 


EMS 


This form represents the detail form for entering contract 
specific information (netback pricing information, contract 
name, terms, provisions, eta). 


164.0 


FmContractList 


Form 


EMS 


This form provides a grid list of all existing contracts on the 
system. Options exist on this form to add, change or 
delete a contract This form also includes extensive lookup 
and company letter tab's for searching ail contracts. 


165.0 


FmDaiiyPrices 


Form 


PCC 


This form shows the graphs of the revenue detail 
information on the Producer Control Center. 


166.0 


FmOeaiClassificationUpdates 


Form 


EMS 


This form provides the mechanism for changing any 
calculation rules associated with a given combination of 
deal classification codes. The WASP inclusion indicator is 
stored on this table. 


167.0 


fmOeaiCorrespondenceOetaii 


Form 


EMS 


This form provides an entry form for attaching electronic 
correspondence to a deal. 
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168.0 


FmOeaiCostsEntryOetaii 


Form 


EMS 


This form provides for the entry of 'OtherCosts' associated 
wrtn a pamcuiar aeai. — 


169.0 


FmOeaiDetaii 


Form 


EMS 


This is the main detail form that shows ail of the 
information relative to a deaf. 


170.0 


FmDeaiEntrytslew 


Form 


EMS 


This form represents a popup box that is displayed when a 
new deal nas oeen reguestBu. 1 n» dux prom pis tne uaei 
for the type of deal (purchase or sale) and what product 
and service it is applicable toward. 




rmueaiust 


rorm 


EMS 


This form provides a listing or au rurcnase or oaies 
deals within a given month on a grid. Options exist on this 
screen to add. change or delete a deal. 


172.0 


FmDeaiPrice 


Form 


EMS 
PCC 


This is the form that is used whenever a user wants to 
calculate the prices for a given volume within a given 
month. The only options on inis rorm are to r nee ah ana 
only for those production months and volumes that are 
applicable {based on monthly status). 


173.0 


FmOeaiPriceEntryOetaii 


Form 


EMS 


This is the mam form for entering deal price information 
within tne energy Management oysiem. 1 ne primary 
underlying tables that get updated include Engine ^Master 
and Engine^MasterPrice. 


174.0 


FmException 


Form 


EMS 
PCC 


This form ts invoked whenever a system exception occurs 
within the system. In order to complete the exception a 
particular user must have a 'Super ID' for the function and 
he/she must provide an exception reason with a 
description. 


I 1 75.0 f 


^ FmExceptionCategonesOetaii 


Form 


EMS 


This form provides for a detail update screen to update 
reason cooe imonnation Tor a given type or exception. 


' 176.0 I 


jfmExceptionCategonesUst 


Form 


EMS 


This form provides a listing grid of all reason code 
exceptions for a given type of exception. 


177.0 r. 


jFmGraphicViewer 

I | 


Form 


EMS 


This form provides an ability to view graphic images and/or 
scan in graphic images from a scanner. These images can 
be attached to a deal. 


178.0 * 


fmGfOupMemberOetail 


Form 


EMS 


This form represents the detail form forassoaating a 
contact as a memoer or a specmc group. 


179.0 l 


FmtmagesOetaii 


Form 


EMS 


This form represents the detail form used for posting 
updates to tne application grapnic images uogo s t exej. 


180.0 : 


Fmlmageslist 


Form 


EMS 


This form provides a list of aM graphiaimages (logos) that 
are currently stoma in ine syoieiri. 


181.0 | 


FmindexBasxetOetaii 


Form 


EMS 


This form provides a detail update screen to update index 
pnee oasKet jjiiuunauon. 


182.0 f 


gFntindexBasketLiiikDetaii 


Form 


EMS 


This form provides a detail update form to allow for the 
updating 01 moex units to paiucuiar uasiieis. 


183.0 j 


FmindexBasketList 


Form 


EMS 


This form provides a listing grid of all index baskets on the 
system. 


164.0 


FmLegDailyOetaii 


Form 


EMS 


This fonn provides tne oetas rate inrormauon assoctateo 
with a daily leg rate (which overrides the monthly rate 
when setup on cmo}. 


185.0 


FmLegDailyList 


Form 


EMS 


This fomt provides a listing of all daily rates that may be 
setup for a particular leg. 


186.0 


FmLegDetaii 


Form 


EMS 


This fonn provides the detail rate information associated 
with the a given leg, on a given pruaucuon montn wnnm 
the system. Both nomination and actual rate information is 
available. 


187.0 


FmLegHistory 


Form 


EMS 


This form provides a historical list of alt monthly leg rates 
that have been established for a given leg. 


188.0 


FmLegList 


— 

Form 


EMS 


This form provides a list of all legs on the system. Options 
exist from this screen to select and change (modify) the 
specific rate information about a leg. 


189.0 


FmLegMonthiyView 


— 

Form 


EMS 


This form represents a view rorm that provides a read- 
only view of all volumes transported in, out sold and/or on 
balance for a specific meter. 


^190.0 


FmLegPurchaseUnkMonthlyView 


Form 


EMS 


This form represents a View* form that provides a read- 
only view of all the purchase deals (volumes) that have 
been attributed to a selected sale. 




r mtjeg " urcnasei-inR v lew 


Form 


CMC 
CIVIO 


Thie frsrm rocresentS 3 'VISW' form that ismvirtee 3 roari. 

only view of ail purchases linked to a specific sale on a 
given day. 
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192.0 


FmLegPurchasePointView 


— 

Form 


EMS 


This form represents a View' form that_provides a read- 
only view of the originating (hop 0) information for any 
given volume that is displayed on the routing screen(s). 


193.0 


FmLegRoute 


Form 


EMS 


This is the main routing screen. Options exist on this 
screen to select pipeffieidSr days t noms or actuals, etc. 
With appropriate security a person can transport and/or 
self volume through this panel. 


194.0 


FmLegSate 


Form 


EMS 


This form ts used as a confirm form for posting volume 
balances to a sale. 


193.0 


FmLegSaJesView 


Form 


EMS 


This form represents a View" form that provides a read- 
only view of all sales that exist on a given pipetfteid for 
either a single day or an entire month. 


196.0 


FmLegTransport 


Form 


EMS 


This form is used as a confirm form for transporting 
volumes to other meters (poofs). Options also exist on this 
form to selectively override transport gathering, pvr or fuel 
rates associated with the transport. 


197.0 


FmLegChange 


Form 


EMS 


This form ts used whenever a request is made to change 
the instructions (either volume or rates) on an existing 
transport OR sale route item. 


198.0 


fmLegOelete 


rorm 


EMS 


This form is used whenever a routed volume (either 
transported to a pool or posted to a sale) has been 
requested to be deleted. . 


199.0 


FmLocationsOetaii 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of location information* These location entries 
are used throughout the system (versus hardcoding 
locations within the software). 


200.0 


jfnLocationsUst 


Form 


EMS 


This form provides a list form to allow for showing the 
location information. These location entries are used 
throughout the system (versus hardcoding locations within 
the software). 


2Q1.0 


UwnlQqm 


Form 


EMS 
PCC 


This is the common login form used by the appjication(s). 
It provides the mechanism for authenticating users or 
company contacts upon entry into the system. 


202.0 


~fmLoginChange 


Form 


EMS 


This form provides the users of the system with the ability 
to change their login passwords. 


203.0 


- fmLookup 


Form 


EMS 
PCC 


This form provides a standard lookup dialog that allows for 
queries to be run for nearly all other list forms within the 
system. Most fist screens provide a lookup button 
(binoculars) that will invoke this form. 


204.0 


imMessageBox 


Form 


EMS 
PCC 


This form displays all system messages used within the 
system. This particular form gets utilized by nearly ail 
other form on the system. The messages displayed by this 
form include ail ERROR, CONFIRMATION^ 
INFORMATIONAL and IN-PROCESS oriented messages. 


205.0 


fmMeterAllocationsOetaii 


Form 


EMS 


This form provides for an entry screen for entering 
allocation companies and accounting cross reference deck 
codes for a given meter/wen ana effective date. 


206.0 


FmMeterOetail 


Form 


EMS 


This form provides for a detail update form on meter/well 
information withm the system. 


207.0 


frnMeterUst 


Form 


EMS 


This form provides for a fist form of all meters/wells within 
the system. 


20S.0 


fmMeterRatesOetaii 


Form 


EMS 


This form provides for an entry screen for entenng rates 
(pressure base, Bhi factor, pipe/field pressure base, etc.) 
for a given meter/well on a specific effective date. 


209.0 


FmMeterRevenue 


Form 


PCC 


This form provides a meter/well form that shows graphic 
representation of calculated volumes and prices. 


210.0 


FmMeterTotalsView 


Form 


EMS 


This form provides a t view J which is a read-only view of ail 
the meter totals (actualized versus not actualized) for an 
entire month). A specific deal OR ail deals within a month 
can be viewed through this form. 


211.0 


FmMonthtyStatusOetaii 


Form ^ - 


EMS 


This form provides a screen for updating the detail 
production month status information. This is where users 
will go to change the status for each production month 
(dependina on security level of the user). 
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212.0 


FmMonthlyStatusList 


Form 


EMS 


This form provides a grid list of ail monthly status 
information (by status). Options exist here to invoke the 
detail update screen to update monthly status information 
(with appropriate security). 


213.0 


fmNetBacicTierDetail 


Form 


EMS 


This form provides the detail form for updating the netbacK 
pricing tiers for a given contract These tiers are 
referenced (for all WASP classified deals) during the 
pricing function. 


214.0 


FmOGlSFeeds 


Form 


EMS 


This form provides an entry form for specifying the 
parameters used to create the OGIS journal entry and 
revenue receivable accounting feeds. The actual text files 
are created from this form. 


215.0 


FmPickACompany 


Form 


EMS 
PCC 


This form provides a common mechanism for displaying a 
list of companies to a user and having one of them 
selected and carried bade to the requesting form. 


216.0 


FmPickAContact 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contacts to a user and having one of them selected 
ana earned bade to the requesting form. 


217.0 


FmPickAContract 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of mntrads to a user and having one of them selected 
and carried bade to the requesting form. 


218.0 


FmPickADeal 


Form 


EMS 


This form provides a common mechanism for displaying a 
list nf ripflta to a user and havina one of them selected and 
carried bade to the reauestinq form. 


219.0 i^fmPickADealMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
H«t nf riftai mnt»rs to a user and havina one of them 
selected and carried bade to the requesting form. 


220.0 JpFmPickALeg 


Form 


EMS 


This form provides a common mechanism for displaying a 
list nf Im /monthly routes) to a user and having one of 
them selected and carried bade to the requesting form. 


221.0 JlFmPtckALegRef 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of LegRef (master routes) to a user and haying one of 
thom cotartAri and fixtrimri bade to the requesting form. 


222.0 l^mPtckALegSaie 


Form 


EMS 


This form provides- a common mechanism for displaying a 
fist of sales points available for routing to a user and 
havina one of them selected and carried bade to the 
requesting form. 


223.0 Iff mPicieAMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of meters/wells to a user and having one of them 
selected and carried bade to the requesting form. 


224.0 \ 


NFmPicKAPipeiine 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of pipeffieids to a user and having one of them selected 
and earned bade to the requesting form. 


225.0 


fmPrckAReport 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of reports to a user and having one of them selected 
and carried bade to the requesting form. 


226.0 


FmPipeDetail 


Form 


EMS 


This form provides the detail update form for updating 
ntae/neki information on the system. 


227.0 


fmPipeiineActuals 


Form 


EMS 


This is the main form used for enter actual volumes for 
meters/wells on the system. The form indudesa 
calculator function for propagating the volumes across ail 
days for the hiqhfiqhted metei/welL 


228.0 


fmPipelist 


Form 


EMS 


This form provides the list form to show all pipeffietds 
currently defined within the system. Options exist on this 
form to add. uodate or delete a pipe/field. 


229.0 


FmPriceComponentsDetaii 


Form- 


EMS 


This form provides the screen for updating the detail 'pnee 
tags' that have been setup on the system. These price 
tags allow us to identify the various portions of a sate or 
purchase once. 


230.0 


FmPriceComponentsUst 


Form 


EMS 


This form provides a grid list of all price components (tags) 
that have been setup on the system. 
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231.0 


fmPriceindexUpdates 


Form 


EMS 


This form provides a list of ait prices forthe daily index 
Prices. When entering this form the default date is set to 
the current date. When prices are being entered on 
'Mondays' there is a 'copy to previous weekend' button 
which will allow for ail prices to be propagated back to the 
previous weekend. Monthly index prices are entered on 
day 1 only for a given month. 


232.0 


FmPriceindicesDetaii 


Form 


EMS 


This form provides a screen for updating the price index 
' information on the database (IndexRef table). This 
includes display order, name, eta 




TmrnCeiriQlCeSlJSI 


Form 


EMS 

* 


This form provides an 'uptiateabie' grid list that shows ail 
price indices on the system. Options exist here to invoke 
the add/update function (fmPricelndicesOetaii). 


234.0 


fmPricesBylndexUst 


Form 


EMS 
PCC 


This form provides a graphic and tabular view of index 
prices for a given month. 


235.0 


FmPrinterDetaii 


Form 


EMS 


This form provides a detail entry form for updating the 
printer information stored on the system. 


236.0 


fmPrintertist 


Form 


EMS 


This form provides a list form that shows ail printers 
currently defined on the system. 




rmrrocessinguoaesueiau 


porm 


EMS 


This form provides the detail form for updating a given set 
of reference (processing codes). 




FmProcessingCodesList 


Form 


EMS 


This form provides the list form for showing all of the 
processing codes. Options exist on this form to add, 
update or delete a given code. 


239.0 


FmProcesaingCodesPick 


Form 


EMS 


This form provides an ability to 'pick 1 a particular reference 
code and send it bade to the form that invoked the screen. 


240.0 


fmProcessingCodeTypesDetaii 


Form 


EMS 


. This form provides the detail form for updating a given set 
of processing code types (types of reference codes). 


241.0 


ifttProcessingCodeTypesUst 


Form 


EMS 


This form provides the list form for showing all of the 
processing code types. Options exist on this form to add, 
update or delete a given type. 


242.0 


FmProdVolCofimns 


Form 


EMS 


This form provides the mechanism for recognizing volumes 
that were returned by producers, fn addition, options exist 
on this form to send out producer confirmations. 


243.0 


.FmProdVoiHist 


Form 


EMS 


This form provides a history list of royalty and makeup 
percentage interests, bv owner, for a given meter/well. 


244.0 


JfmProdVoiList 


Form 


EMS 


This form provides the mechanism for entenng initial 
volumes (expected availability) from producers. Option 
exist on this form to send out producer availability estimate 
reports. 


245.0 


fmReportDefauitsOetail 


Form 


EMS 


This form provides a detail screen for setting up the default 
reports that will be used by entity, product and service on 
the system. These reports include invoices, vouchers, 
remittance, etc 


246.0 


FmReportDefaultsList 


Form 


EMS 


This form provides a list screen for showing ail of the 
default reports that am setup by entity, product and service 
on the system. These reports include invoices, vouchers, 
remittance, etc. 


247.0 


FmReportOverndesOetaii 


Form 


EMS 


This form provides a detail screen for setting up the 
override reports that will be used by entity, product and 
service on the system ASSOCIATE TO A SPECIFIC 
CONTRACT. These reports include invoices, vouchers, 
remittance, etc 


246.0 


FmReportsLlst 


Form 


EMS 
PCC 


This is the primary form used for displaying a reporting 
folder. Within this folder are all of the reporting labs' that 
are available. Within each tab are ail of the specific reports 
that can be run. A submission, and view button are 
available here. 


249.0 


FmReportsParaemeters 


Form ^ 


EMS 
PCC 


This is the form that is used when entering the various 
parameters when a report is submitted. Defaults are 
automatically supplied and the parameters are listed in a 
grid list format 


250.0 


fmReportsView 


Form 


EMS 
PCC 


This is the main view form for viewing ail of the submitted 
reports. Options exist to view the reports specifically 
submitted by a user OR to view the reports that were 
submitted bv the scheduler. 
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251.0 


frnSecurityAuthDetaii 


Form 


EMS 


This form represents the form for estabhshing and updating 
security authorizations between users ^nd business 
functions within the Energy Management System. Options 
exist here to allow for users to have NO ACCESS, READ 
ONLY, READ/UPDATE, READ/UPDATE/DELETE or 
SUPER access to a particular area of application. 


252.0 


fmSecurityAuthtist 


Form 


EMS 


This form provides a listing of ail security authorizations 
that are set for each user on the Energy Management 
System. Options exist on this form to add, update and 
delete spectftcsecurity authorizations for any given user of 
the system. 


253.0 


FmsRptsinvoice 


Form 


EMS 


This is the primary form used for submitting standard 
invoice reports. 


254.0 


FmsRptsRemrttance 


Form 


EMS 


This is the primary form used for submitting standard 
remittance reports. 


255.0 


fmsRptsVoucher 


Form 


EMS 


This is the primary form used for submitting standard 
voucher reports. 


256.0 


FmTransactionDetaii 


Form 


EMS 


This form provides for the entry of 'Other Cost* transactions 
within EMS. Once these transactions are setup in the 
system, then they can be attached to deals and 
calculations will be done against them. 


257.0 


FmTransactionList 


Form 


EMS 


This form provides a list of ail the 'Other Cost transactions 
that have been setup on the system. 


25S.0 


fmllserProftlesQetaii 

j 


Form 


EMS 


This form represents the creation and update form for ail 
users on the Energy Management System. This form 
provides an administrator with the ability to change name, 
password, title, default printer, etc for ail users on the 
system. 


259.0 l 


^fmUserProfilesList 

J 


Form 


EMS 


This form provides a listing of ail users that are capable of 
using the Energy Management System. Options exist on 
this form to add, update or delete a specific user. 


260.0^ 

il;* 


fmGasControiMainMenu 


Form 


EMS 


This form represents the main menu for the Energy 
Management System. AN menu options, speed buttons, 
etc are stored on this form. This particular form is also 
responsible for invoking the methods to establish a 
connection and set the form screen attributes (based on 
user preferences). 


251.0 ; 


JirmProducerControlCenterMain 


Form 


PCC 


This form represents the main menu for the Producer 
Control Center. All menu options, speed buttons, etc are 
stored on this form. This particular form is also responsible 
for invoking the methods to establish a connection and set 
the form screen attributes (based on user preferences). 
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APPLICATION (CLIEN-SIDE) SOFTWARE 

The table that follows contains the high-level 
documentation related to the systems and methods provided by 
the present invention and, in particular, those sub-functions and 
applications that run client-side in the context of the present 
invention. In the table that follows, the terms EMS and PCC are 
used to differentiate (as described above), between a full use 
application system and a limited use/user/function application 
system that are provided by the present invention. The actual 
source code for such application software is contained among the 
files found on the attached compact disc. 

PRICING AND PRICING TECHNIQUES 

So far in the aforementioned detailed discussion the 
present invention, it has been assumed that the particular pricing 
techniques may be employed to price one or more fuel deals 
automatically. The present invention certainly permits fuel deals 
to be priced based on a variety of factors germane to the energy 
field. Additionally, the systems and methods provided by the 
present invention permit fuel deals to be priced automatically, in 
batch or otherwise, based on pricing techniques which are 
modularized and which are carried out automatically based on 
prior or other collections of fuel deals and other fuel deal data. 
Accordingly, teams of sales personnel can have deals priced 
based on company specifications to meet margin requirements, 
etc. 

One such technique implemented as a modularized 
process capable of pricing one or more fuel deals in accordance 
with the present invention is referred to as the WASP technique 
which stands for the Weighted Average Selling Price technique. 
WASP permits one or more fuel deals (usually a collection) to be 
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priced to meet organization pricing targets (and margin 
requirements) based on computed average sales prices across 
collections of fuel deals. The WASP technique and its supporting 
computer software are contained herein for purposes of example 
to illustrate the novelty of having a system that can incorporate a 
substitutable pricing technique (algorithm) into a business process 
like or similar to the one depicted in and discussed in regard to 
FIG. 1. 

The WASP Calculation 

This particular section contains information on the 
calculation that occurs to price deals. In the context of the 
present invention, it is envisioned that there are three situations 
that can trigger a pricing calculation: 

1 . The price calculation can be submitted at any time 
by individuals with appropriate security using the 
System online pricing screen (see FIGS. 4A-4Q). 
Only those production months in a 'Sales' 
(nomination recalculated) or 'Invoiced' (actual 
recalculated) status can be submitted through this 
screen; 

2. When the status for a production month goes from 
'Sales' to 'Invoiced' a final nomination is performed. 
In addition, when the status of a production month 
goes from 'Invoiced' to 'Accounting' a final actuals 
calculation is performed. These production month 
status 'promotions' occur through the EMS online 
screens (by individuals with an appropriate level of 
security); and 

3. Each evening, for example, all production months 
that are in either the 'Sales' or 'Invoice' status will 
have a calculation cycle run for them. This 
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calculation begins at approximately 8:00 CST, for 
example. This ensures that all variables (price index 
entries, volumes, routing instructions, etc.) that could 
influence the price of a given set of deals are 
recalculated and presented as current, the first thing 
in the morning. 

The entire calculation process is comprised entirely of MS 
SQL-Server Transact-SQL stored procedures. The 'flow' of the 
calculation can be described with reference to the following six (6) 
stages: 

Stage 1 . Sales Deal Calculations 

Calculate all sales deals first (all pools and deal 
classifications). This is done because knowing the sales prices 
(by pool) is required for the following purchase deal calculations. 

Stage 2 WASP Deal Preparation 

This particular stage simply prepares the 
WASPResolvedRouting table with initial sales pool total dollars 
and volumes. This is the primary table that is used when 
repeatedly (such as via iteration) tracing all volumes from the 
sales point back to originating purchase points. 

Stage 3 Purchase Deal 'None' Pool (3 rd Party) 
Calculations 

All third party purchase deals (belonging to the 'None' 
(pool) are calculated first. The reason for this is because of the 
potential that some of these deals having Financial Overrides that 
are to be distributed to either a 'Common' WASP pool OR to a 
specific deal. By doing these calculations first, the profit gain or 
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loss (for the financial overrides) can be determined and posted to 
the appropriate place in the WASPResolvedRouting table. 

Stage 4 Purchase Deal 'D edicated' Pool 
(Sanctioned Sales) Calculations 

All sanctioned sales purchase deals are now calculated. 
The price for these purchases is driven based on a weighted 
average basis of the sales meters. Sanctioned sale purchase 
exist in their own pool ('Dedicated') so that no other purchases 
volumes (and sales of those volumes) will impact the price 
calculated. Netback percentages are applied. 

Stage 5 Purchase Deal 'Common' Pool (Equity) 
Calculations 

All equity deals are then calculated. The price for these 
purchases is driven based on a weighted average basis of the 
sales meters. All purchases that are classified as 'equity' will 
share in pricing and costing (weighted). The pricing is based on 
the 'common' body. Any given purchase deal classified as equity 
could potentially impact the price that other purchase deals (in the 
'common' pool) calculates. Netback percentages are applied. 

Stage 6 Transportation Costs 

This stage of the calculation aggregates all of the transport 
volumes throughout the month to special transport deals and 
volume inventory items. 

Each of the aforementioned stages of the calculation are 
invoked from a stored procedure called 
usp_PSPriceAutoMonth. FIGS. 5A and 5B illustrate the process 
flows corresponding to these 'stages' and the flow of the stored 
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procedures (discussed above) invoked during the calculation. 
The ordering of these procedures can be tied back to the stages 
just described above. Actual WASP calculation routines are listed 
below to aid the reader to completely understand the nature using 
5 a predetermined pricing technique in accordance with the present 
invention. 



Weighted Average Sales Price Calculation Routines 

10 

The following software routines implement a weighted 
average sales pricing technique that may be incorporated within a 
computing environment such as within a server-side processing 

15 system to facilitate fuel deal pricing in accordance with a preferred 
embodiment of the present invention. Accordingly, in the context 
of the instant invention, the following routines provide a 
predetermined pricing technique for pricing fuel deals based on 
past, present, or future deals, or combinations thereof. The 

20 following routines are found among the files contained on the 
attached compact disc, and also have been commented to assist 
those of ordinary skill in the art understand the details related to 
actual implementation. 



25 /* Microsoft SQL Server - Scripting */ 

/* Server IS101 */ 

/* Database: EMS */ 

T Creation Date 02/13/2001 4:08:41 PM */ 



30 

CREATE PROCEDURE usp_fGetlndex( 

@GasMonthX DATETIME, 
©GasDayX DATETIME, 
@IXVARCHAR(15), 

35 ©IndexValuexx DEC1MAL(19,6) OUTPUT 

) 

AS 

/* 

40 Name: uspJGetlndex 

Description: Get the most recent index value for a specified price index. 
Inputs: 

45 

GasMonthx - Gas month for lookup 
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GasDayx - Preferable gas day used for lookup 
Ix - index id 

IndexValuexx - return index value 
History: 

11/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL. 



7 

BEGIN 

SELECT ©IndexValuexx = 0 
/* 



* First get the maximum gas day that 

* has been entered for this index 

* id in this particular month. 

k k kitk kkk'k k k kk^ktk+kttkk A ft Afcft k kk\4t^kkk 

7 

SELECT @GasDayX=(SELECT Max(GasDay) FROM GCIndex WHERE GasMonth=@GasMonthX AND 
GasDay<=@GasDayX AND lndexlD=@iX AND lndexVal<>0) 

r 

* Now get the index value for that 
*day. 

SELECT ©IndexValuexx = IndexVal FROM GCIndex WHERE GasMonth=@GasMonthX AND GasDay=@GasDayX 

AND lndexlD=@IX 

END 



GO 

SET QUOTED IDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_fGetlndexBasket( 

©GasMonthX DATET1ME, 
@GasDayX DATETIME, 
©IndexBasketlDX VARCHAR(15) t 
©IndexValuexx DECIMAL(19 t 6) OUTPUT 
) 

AS 

BEGIN 
/* 



Name: fGetlndexBasket 

Description: This function will get the index basket amount for the specified 
month and date. This function will return a simple average of all the non zero 
components within the index for the month and day. 

Inputs: GasMonthX (current gas month), GasDayX (day within month) and 
IndexBasketlDX (IndexBasket unique identifier). 

Outputs: Simple averaged price for the index basket. 

History 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables. In 
addition, all documentation added. This particular 
portion of the system required extensive changes 
due to the need to store a nom and actual number 
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and because all price components are now stored 
off the Engine_MasterPrice table (STID's 8 and 9). 



1 1/08/2000 JAMIE Converted to transact-sql. 

5 



1 0 * Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



*/ 

1 5 DECLARE lndexBasketlink_Cursor CURSOR LOCAL FORWARD_ONLY STATIC FOR 

SELECT indexlD FROM IndexBasketLink WHERE lndexBasketlD=@lndexBasket!DX 

DECLARE ©yTotaiPrice DECIMAL(19,6) 
DECLARE ©yTotallndices INTEGER 
20 DECLARE @yTotalPriceinterim DECIMAL{19,6) 
DECLARE ©ylndexlD VARCHAR(12) 
/* ^ 

* Initialize alt fields here... 

*/ 

SELECT @yTotalPrice=0 
SELECT @yTotallndices=0 
SELECT @lndexValuexx=0 

30 r 



* Loop through all of the indices within 
*the index basket Obtain the price 

* information. 

35 *** «"'" 

*/ 

OPEN lndexBasketLink_Cursor 

FETCH NEXT FROM IndexBasketLink.Cursor INTO ©ylndexiD 
WHILE @@FETCH_STATUS = 0 
40 BEGIN 

EXECUTE uspJGetlndex @GasMonthX r @GasDayX,@ylndexlD,@yTotalPricelntenm OUTPUT 
IF @yTota)Pricelnterim<>0 
BEGIN 

SELECT @yTotaiPrice=@yTotalPrice+tgyTotalPriceinterim 
45 SELECT @yTotal!ndices=@yTotalindices+1 

END 

FETCH NEXT FROM IndexBasketLink Cursor INTO ©ylndexlD 

END 

CLOSE lndexBasketLink_Cursor 
50 DEALLOCATE IndexBasketLink.Cursor 

/* 



* Take the simple average of the totals 

* here... 

55 " """" 

*/ 

IF (@yTotaIPrice<>0) ANO (@yTotailndices<>0) 
BEGIN 

SELECT @(ndexValuexx=(@yTotalPrice/@yTotailndices) 

60 END 
END 



65 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
70 GO 
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SET QUOTEDJDENTIFER OFF SET ANSLNULLS ON 
GO 

5 CREATE PROCEDURE usp_fGetNetbackPercentage( 

@PIDx INTEGER, 
©GasMonthx DATETIME, 
@TypeNetbackxVARCHAR(12), 
©WhichPricex INTEGER, 

1 o ©yNetbackPercentage DECIMAL(19,8) OUTPUT 

) 

AS 

BEGIN 

I* 

1 5 **** U1 " 11J ™* 

Name: uspJGetNetbackPercentage 

Description: This function will return the netback percentage that should be applied 
to a particular deaf, for a particular month. This netback percentage is based on the 
20 percentage setup at the contract level for the deal in question. These percentages 

at the contract level (KNetback table) are tiered. There are two methods of deriving 
the percentage. 

Method 0 (All or nothing) - With this method the average daily volume for the month 
25 will be used to find the appropriate tier (also based on effective date). The netback 

percentage to use will be the FIRST tier setup on the contract whose average daily volume 
does not exceed the total for the gas month on this package. All gas volume for the 
month will use this same percentage (all or nothing). 

30 Method 1 (Accumulating) - With this method the resulting end percentage that wiil be 

used is based on volumes within each tier (they are weighted based on their respective 
volumes. The netback percentage that is calculated is based on the wteghted average of 
all percentages, across all tiers using volumes that were applied. 

35 This particular function wiil work with Nomination (WhichPricex = 0) and Actual 

(WhichPricex = 1) volumes. In addition, this procedure can return both 'GAS' and/or 
'OIL' (and or any other) netback (via the TypeNetbackx parameter). 



40 was sent as an input parameter. The WASP indicator is based on the combination of 

deal classifications that have been established for this deal. The default indicator 
is 'N* (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 

45 Inputs: 

PIDx (package ID) 
GasMonthx (Gas Month) 
TypeNetbackx (type of netback percentage) 
50 WhichPricex (0=Nominations, 1 =Actuals) 

Outputs: 

A single percentage to be applied to the price, representing the netback. 

55 

History: 

05/13/99 JAMIE Original Creation. 

60 07/22/99 JAMIE Modified to check for a floor amount 

and return that amount if it is greater 
than the calculated amount. 

09/02/1999 JAMIE Modified to sum volumes either across DEAL, CONTRACT 
65 or COMPANY when determining the correct tier. 

08/21/2000 JAMIE Modifications to only sum volumes within the same 
product (across entities and services). 

70 1 1/08/2000 JAMIE Converted to Transact-SQL 
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7 

r 

5 ********** *** 

* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



10 7 

DECLARE @zRound INTEGER 
DECLARE ©zEntityCID VARCHAR(12) 
DECLARE ©zKProductID INTEGER 
DECLARE ©zKServicelD INTEGER 

15 

DECLARE ©tmpEndDate DATETIME 
DECLARE ©tmpMaxEffective DATETIME 
DECLARE @tmpDayslnPeriod INTEGER 
DECLARE ©tmpVolumeTotal DEC1MAL(19,2) 

20 DECLARE ©tmpAccumulatingTotal DECIMAL{1 9,2) 

DECLARE ©tmpPrevBand DEC!MAL(19,2) 
DECLARE ©tmpCurrBand DEC1MAL(19,2) 
DECLARE ©tmpBandTotal DECIMAL(19,2) 
DECLARE @tmpBandWeightPerc DECiMAL(19,8) 

25 DECLARE ©tmpAccumulatingPrice DECIMAL(19,8) 

DECLARE @yNetbackMethod INTEGER 
DECLARE @yNetbackTierLevel VARCHAR(10) 
DECLARE ©yAveragePerDay DECIMAL(19,2) 

30 DECLARE ©yDailyTotal DECIMAL(19,2) 

DECLARE @yeffective DATETIME 
DECLARE ©ymaxvollevel DECIMAL(19,2) 
DECLARE @ynetprice DECiMAL(19,8) 
DECLARE ©ynetpricefioor DECIMAL(19,8) 

35 DECLARE @yKID INTEGER 

DECLARE @yCID VARCHAR(12) 

r 



* Get netback method information off the 
40 * contract The default wiil be all or 

* nothing (most common). However, this 

* should always be found on the contract 
* 

* 0 = All or Nothing 

45 * 1 = Accumulating 

* 

* Also, this area of the code sets the 

* default for the netback to zero. 
* 

50 * In addition, go and get the default 

* netback tier level off the contract 

* in order to know at what level to 

* summarize the volumes when 

* performing the calculation. The 
55 * default is 'DEAL if it can't be found 

*or if one is not specified. 



7 

SELECT @yNetbackPercentage=0 
60 SELECT @yNetbackMethod=iSNULL((SELECT tier FROM K WHERE KID=(SELECT KID FROM package WHERE 

PKG=@PIDx)),0) 

SELECT @yNetbackTierLeve!=ISNULL((SELECT NetbackTierLevel FROM K WHERE KID=(SELECT KID FROM 
package WHERE PKG=@PIDx));COMPANr) 

SELECT @yKID=ISNULL((SELECT KID FROM package WHERE PKG=@PIDx),0) 
65 SELECT @yClD=ISNULL((SELECT CiD FROM package WHERE PKG=@PIDx),") 

r _ .-^^^ 

* Get the entity, product and service 

* information off the deal table. There 
70 * has to be a value on the deal (package) 
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* table for each of these... 



*/ 

SELECT @zEnfflyCID=lSNULL((SELECT K.EntityCID FROM Packaged WHERE PKG=@PIDx and 
5 K.KID=Package.KID),") 

SELECT @zKProductlD=ISNULL((SELECT KProductID FROM Package WHERE PKG=@PIDx),0) 
SELECT @zKServicelD=!SNULL((SELECT KServicelD FROM Package WHERE PKG*@PIDx),0) 
f ^ kx ^ xiixktLLLikKx ^ 

1 0 * Now calculate the average volume of 

* gas per day that this particular 

* package has on the system. Remember to 

* use the WhichPrice parameter to determine 

* which volume to get. 

1 5 * 0=(Nominated Volume) 

* 1=(pipeiine actual volume) 



V 

EXECUTE usp_fLastDay @GasMonthx,@tmpEndDate OUTPUT 
20 SELECT @tmpDayslnPeriod=(DATEDIFF(day,@GasMonthx,@tmpEndDate) + 1 ) 
IF @WhichPricex=0 
BEGIN 

IF ©yNetbackTierLevel- DEAL 
BEGIN 

25 SELECT @tmpVo!urneTotal=lSNULL((SELECT SUM(Nom) FROM 

Gaslnv WHERE PKG=@PIDx),0) 

END 

IF @yNetbackTierLevei='CONTRACT' 
BEGIN 

30 SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Gaslnv.Nom) 

FROM Gaslnv,Package 

WHERE Gasinv.GasMonth=@GasMonthx AND 
Gas(nv.DBCR=0 AND Gaslnv.PriceType=1 AND Gaslnv.KID=@yKID 

AND Package,PKG=Gaslnv.PKG AND 

35 Package.KProductlD=@zKProductfD),0} 

END 

IF @yNetbackTierLevel='COMPANY' 
BEGIN 

40 SELECT @tmpVolumeTotal=!SNULL((SELECT SUM(Gaslnv.Nom) 

FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv. PriceType=1 AND Gaslnv,CID=@yCID 

AND Package.PKG=Gasinv.PKG AND 

45 Package.KProductlD=@zKProductlD),0) 

END 

END 

IF @WhichPricex=1 
BEGIN 

50 IF ©yNetbackTieitevei^DEAU 

BEGIN 

SELECT @tmpVolumeTotal=lSNULL((SELECT SUM(PipelineActuals) 

FROM Gaslnv WHERE PKG=@PIDx),0) 
END 

55 IF @yNetbackTierLeve(='CONTRACT 

BEGIN 

SELECT @tmpVolumeTotal=iSNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
60 Gasjnv.DBCR=0 AND Gaslnv. PriceType=1 AND Gaslnv. KlD=@yK!D 

AND Package.PKG=Gaslnv.PKG AND 

Package.KProductJD=@zKProductlD),Q) 
END 

IF ©yNetbackTierLevel^COMPANY' 
65 BEGIN 

SELECT @tmpVolumeTotaNSNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gasinv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv. PriceType=1 AND Gasinv.ClD=@yCID 
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AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductJD),0) 
END 

END 

5 IF (@tmpVolurneTotal=Q) OR (@tmpDaysinPeriod<1 ) 
BEGIN 

SELECT @yAveragePerDay=0 

END 

ELSE 

10 BEGIN 

EXECUTE usp_GetProductVolumeRound @PIDx,@zRound OUTPUT 

SELECT @yAveragePerDay=ROUND(@tmpVoiumeTotal/@tmpDayslnPeriod,@zRound) 

END 

r 

15 — 

* Determine which effective date of rules 

* should be used. This will be the max 

* effective date where the effective date 

* is either in or prior to the end of the 
20 * current gas month. Only the set of rules 

* associated with the most recent effective 

* date will be used, if a date cannot be 

* found then this function will return 

* a zero percentage (ie. one isn't on 
25 * the system that precedes the gas 

* month). 



7 

SELECT @tmpMaxEffective=(SELECT MAX(effective) FROM knetback WHERE KID=(SELECT KID FROM package 
30 WHERE PKG=@PlDx) 

AND (effective<=@tmpEndDate) AND NetBackType=@TypeNetbackx) 

IF ©tmpMaxEffective IS NULL 
BEGIN 

SELECT etmpMaxEffective^'OI-OMW 

35 END 

r 



* if method 0 (ail or nothing) then go 

* and get the single tier percentage. 
40 * The tier record wili loop through and 

* take the first tier record where the 

* volume is greater than or equal then 

* the average volume per day. 

* This is the all or nothing netback 
45 * pricing tier logic. 



7 

IF @yNetbackMethod=0 
BEGIN 

50 SELECT @yDailyTotai=@yAveragePerDay 

END 

ELSE 

BEGIN 

SELECT @yDailyTotai=0 

55 END 

r 



* Initialize any fields that may be 

* needed during the loop process. 

7 

SELECT @tmpAccumulatingTotal=@yAveragePerDay 
SELECT @tmpPrevBand=0 
SELECT @tmpAccumuiatingPrice=0 
65 r 



* Now loop through all of the netback 

* price records attached to the contract. 



70 7 
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DECLARE NetbackCursor CURSOR LOCAL FORWARD.ONLY STATIC FOR 
SELECT 

effective, 
maxvollevel, 
netprice 
FROM 

kNetBack 

WHERE 

(K!D=(SELECT KID FROM Package WHERE PKG=@PIDx)) AND 
(effective=@tmpMaxEffective) AND 
(maxvoilevel>=@yDailyTotai) AND 
(NetbackType=@TypeNetbackx) 

ORDER BY 

maxvoilevel asc 

OPEN NetbackCursor 

FETCH NEXT FROM NetbackCursor INTO @y Effective, @ymaxvollevel,@y netprice 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF @yNetbackMethod=0 
BEGIN 

IF ©yNetbackPercentage^O 
BEGIN 

SELECT 

@yNetbackPercentage=ROUND(@ynetprice,4) 

END 

END 

r ^ ^ 

* If method 1 (accumulating) then go 

* through and weight each tier to denve 

* a percentage. We know the total volume 

* for the month each tier will provide us 

* with the weighting information we need. 

*/ 

IF @yNetbackMethod=1 
BEGIN 

IF @tmpAccumulatingTotal>0 
BEGIN 

SELECT @tmpCurrBand=(@ymaxvollevel- 

@tmpPrevBand) , . _ x , 

IF @tmpCurrBand<=@tmpAccumulatingTotaI 

BEGIN 

SELECT 

@tmpBandTotal=@tmpCurrBand SELECT 
@tmpAccumulatingTotai=(@tmpAccumulatingTotal-@tmpCurrBand) 

ELSE 

BEGIN 

SELECT 

@tmpBandTotai=@tmpAccumulatingTotal 

SELECT 

@tmpAccumulatingTotal=0 

SELECT @tmpBandWeightPerc=@tmpBandTotal 
SELECT 

@tmpBandWeightPerc=@tmpBandWeightPerc/@yAveragePerDay 
(StmpAcxumu!atingPrice=@tmp^ 

END 

SELECT @tmpPrevBand=@ymaxvollevel 

END 

FETCH NEXT FROM NetbackCursor INTO ©yEffective^ymaxvolleveKgynetpnce 

END 

CLOSE NetbackCursor 
DEALLOCATE NetbackCursor 
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* Get the last accumulating price here 
*and use this price... 



*/ 

5 IF @yNetbackMethod=1 
BEGIN 

SELECT @yNetbackPercentage=@tmpAccumulatingPrice 

END 

10 /* 

* At this point a calculated netback 

* percentage has been derived. Now 

1 5 * check to see if the calculated netback 

* percentage is less than the 'floor* 

* amount setup on the contract. If so, 

* then use the floor amount. 

20 */ 

SELECT @ynetpricefloor=ISNULL((SELECT NetPriceFloor FROM K WHERE KID=(SELECT KID FROM Package 
WHERE PKG=@P!Dx)),D) 
IF @ynetpricefloor<>0 
BEGIN 

25 IF @ynetpricefloor>@yNetbackPercentage 

BEGIN 

SELECT @yNetbackPefcentage=@ynetpricefloor 

END 

END 

30 END 



35 



40 

GO 

SET QUOTED J DENTIFIER OFF SET ANSLNULLS ON 
GO 

45 SET QUOTED IDENTIFIER ON SET ANSLNULLS ON 

GO 

CREATE PROCEDURE uspJGetWASPlndicatorf 

@P!Dx INTEGER, 

50 @yWasplndicator VARCHAR(1 0) OUTPUT 

) 

AS 

BEGIN 
/* 

Name: uspJGetWasplndicator 

Description: This function wiil return the WASP indicator for the package ID that 
was sent as an input parameter. The WASP indicator is based on the combination of 
60 deal classifications that have been established for this deal. The default indicator 

is 'None' (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 

Inputs: PIDx (package ID). 

65 

Outputs: A 'Comon' or 'Dedicated' or 'None' indicator which specifies whether 
or not this package is considered 'WASP'able. 

History: 

70 
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05/12/1999 JAMiE Original Creation. 

08/03/1999 JAMIE Modification to use the deal classification indicators 
off of the package table versus the dealclass table. 
5 



7 

r 



1 0 * Declare ail exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



7 

1 5 DECLARE @yDeaiContextlD INTEGER 

DECLARE ©yDeafTypelD INTEGER 
DECLARE ©yDealVolumeVolID INTEGER 
DECLARE ©yDealPricePeriodiD INTEGER 
DECLARE @yDeallnterruptibielD INTEGER 

20 r 



* Populate the various deal classification 

* identifiers based on the information 

* stored on the package table. 

25 ******** * 

7 

SELECT 

@yDealContextlD = PackageDBCR. 
©yDealTypelD = DeaiTypedclD, 
30 @yDeaiVolumeVollD = VoiumeVoiatiiitydcID, 

©yDealPricePeriodlD = PricePerioddclD, 
@yDealinterruptibielD = InterruptibtedclD 
FROM 

Package 

35 WHERE 

PKG=@PIDx 

/* 



* Now go and get the WASP indicator for 
40 * this particular deal. 



7 

SELECT @yWasplndicator=lSNULL((SELECT includelnWasp FROM rDealClassRules 

WHERE 

45 DealContext=@yDealContextiD AND 

DealTypedclD=@yDealTypelD AND 
VolumeVolatiiitydclD=@yDealVolumeVollDAND 
PricePerioddclD=@yDealPficePeriodlD AND 
interruptibiedclD=@yDeaiintemJptibielD);None , ) 

50 END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
55 GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
GO 

60 CREATE PROCEDURE uspJGetWaspType( 

@PIDx INTEGER, 

©yWaspType VARCHAR(12) OUTPUT 
) 

AS 

65 BEGIN 
/* 



Name: uspJGetWaspType 
70 Description: This function will return the WASP type field to use for the 
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specific package (deal) that is being looked at. This type is based on the 
product id setup for the deal. 



5 Inputs; 

PIDx (package ID). 
Outputs: 

10 

yWaspType - 'OIL'/LIQUIDS', OR 'GAS'. 
History: 

1 5 12/03/2000 JAMIE Original Creation. 



7 

r 

20 — — " 

* Declare all exceptions, cursors 

* and focal variables that will be 

* utilized by this procedure. 

25 7 

DECLARE ©yDealProduct VARCHAR(50) 
DECLARE ©yDeaiProductlD INTEGER 

r 



30 * Initialize the return value to be GAS 
7 

SELECT @yWaspType='GAS' 
/* 

35 

* Get the contrat ID off the deal 

* (package) table. 



7 

40 SELECT ©yDealProductID = ISNULL((SELECT KProducttD FROM package where PKG=@PIDx),0) 

/* 



* If a contract ID was found then 

* based on the value then convert 
45 * the netback type. 



7 

IF @yDealProductlD <> 0 
BEGIN 

50 SELECT ©yDealProduct - ISNULL((SELECT shortdescriptlon FROM SEProcessingCodes 

WHERE processingcodeid= @yDealProductlD) p 'Gas') 
lF@yDealProduct= , Gas l 
BEGIN 

SELECT @yWaspType='GAS' 

55 END 

IF ©yDealProduct = 'Oil' 
BEGIN 

SELECT ©yWaspType- OIL' 

END 

60 IF ©yDealProduct = liquids' 

BEGIN 

SELECT @yWaspType='UQUlDS' 

END 

END 

65 END 



70 
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GO 

SET QUOTED ^IDENTIFIER OFF SET ANSiJMULLS ON 
GO 

5 SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 

GO 

CREATE PROCEDURE uspJ!sLastDay( 

@DT DATET1ME 

10 ) 

AS 

BEGIN 

DECLARE @LDx DATETIME 
DECLARE @a INTEGER 
1 5 EXECUTE uspJLastDay @DT,@LDx OUTPUT 

IF @LDx=@DT 

BEGIN 

SELECT @a=1 

END 

20 ELSE 

BEGIN 

SELECT @a=0 

END 

RETURN(@a) 
25 END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
30 GO 

SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 

35 CREATE PROCEDURE uspjastday( 

©lastdate DATETIME, 
@idx DATETIME OUTPUT 
) 

AS 

40 BEGIN 
/* 

* Initially, just set the return value to be 

* equal to the date coming in. 

45 ****** ******* — ****** ******* 

*/ 

SELECT @!dx=@!astdate 
I* 



50 * Now, loop thru adding 1 day to the date 

* while the month is still equal. 



7 

WHILE MONTH(@ldx)=MONTH(@lastdate) 
55 BEGIN 

SELECT @ldx=DATEADD(DAY,1,@idx) 

END 

/* 



60 * Since the loop would have finished with 

* the date being 1 day greater than the 

* last day of the month, then back it off 

* one day here to get the true end of 

* month value... 

7 

SELECT @idx=DATEADD(DAY,-1 ,@ldx); 
END 

70 
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GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
5 GO 

SET QUOTEDJDENTIFIER ON SET ANSI_NULLS ON 
GO 

1 0 CREATE PROCEDURE usp_GasDayToGasMonth( 



20 



AS 

15 BEGIN 
/* ^ 

* Initially, just set the return value to be 

* equal to the date coming in. 

★*iH>*»*******»****»*»»*** ************* ********* 

7 

SELECT @GasMonthX=@GasDayX 
r _______ 

25 * Now, loop thru subtracting 1 day to the 

* date while the month is still equal. 

7 

WHILE MONTH(@GasMonthX)=MONTH(@GasDayX) 
30 BEGIN 

SELECT @GasMonthX=DATEADD(DAY,-1 ,@GasMonthX) 

END 

35 * Since the loop would have finished with 

* the date being 1 day less than the 

* first day of the month, then bump it up 

* one day here to get the true beginning of 

* month value... 



40 



45 



@GasDayX DATETfME, 
©GasMonthX DATETIME OUTPUT 
) 



7 

SELECT @GasMonthX=DATEADD(DAY, 1 ,@GasMonthX) 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

50 SET QUOTEDJDENTIFIER ON SET ANSI JMULLS ON 

GO 

CREATE PROCEDURE usp_GetProductVolumeRound( 

@PKGx INTEGER, 

55 @RoundNumber INTEGER OUTPUT 

) 

AS 

I* ____________ 

60 Name: uspjSetProductRound 

Description: Get the value used to round volumes to based on the information 
in the processing codes table (typelimit field). 

65 Inputs: 

RoundNumber - Number of digits to round calculations too. 

Outputs: 

70 
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None 
History: 

5 1 1/23/2000 JAMIE Original creation. 



7 

BEGIN 

1 0 DECLARE ©zRoundNumber INTEGER 

SELECT ©zRoundNumber = ISNULL((SELECT SP.TypeLimit FROM SEProcessingCodes AS SP, Package WHERE 
SP ProcessingCodelD = Package.KProductlD AND Package.PKG=@PKGx),0); 
SELECT ©RoundNumber = ©zRoundNumber 
END 

15 



20 GO 

SET QUOTED .IDENTIFIER OFF SETANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
25 GO 

CREATE PROCEDURE usp_LinePrice( 



30 

AS 

BEGIN 
/* 



35 Name: uspJJnePrice 

Description: This procedure will calculate the line price for a specific Engine 
record. The input parameter nETID represents a unique key to a specific Engine 
record. In addition, the nNomOrAct parameter specifies whether or not to post the 
40 price line information to the nomination area or the actual area of the engine 

record. The volgroup field on the engine record contains the unique package (deal) 
id. This is used in the link to get the actual price components for the package. 

Inputs: 

45 

nETID = Engine Key 

nNomOrAct = (0=Nomination,1=Actualization) 
Outputs: 

50 

Either an updated PriceOrRateNom or PriceOrRateAct field on the Engine record. 

The precise field updated depends on the input parameter sent to this process (nNomOrAct). 

History: 

55 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Enginejvlaster tables, in 
60 addition, all documentation added. This particular 

portion of the system required extensive changes 
due to the need to store a nom and actual number 
and because all price components are now stored 
off the Engine JvtasterPrice table (STiD's 8 and 9). 

65 

06/22/2000 JAMIE Modified to puil in the entity, product and service 
in order to get the correct price off the wasp tabie (values are passed 
to the wasp routine). 

70 ' 11/1 0/2000 JAMIE Converted to Transact-SQL 



©nETID INTEGER, 
©nNomOrAct INTEGER 

) 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



* Declare all exceptions, cursors 

* and loca! variables that will be 

* utilized by this procedure. 

*/ 

DECLARE @xEngine_Effective DATETIME 
DECLARE @xETID INTEGER 
DECLARE @xSequenceNo INTEGER 
DECLARE ©xPriceTag VARCHAR(20) 
DECLARE (gxOperandVariable VARCHAR(1) 
DECLARE ©xPriceVariable VARCHAR{15) 
DECLARE ©xPriceEntryType VARCHAR(12) 
DECLARE ©xEffective DATETIME 
DECLARE @xTID INTEGER 
DECLARE @xEntityCJD VARCHAR(12) 
DECLARE @xKProductlD INTEGER 
DECLARE @xKServiceiD INTEGER 
DECLARE ©yPrice DECIMAL{19,6) 
DECLARE @yPricelnterim Value DECiMAL(19,6) 
DECLARE @yMonthDate DATETIME 
DECLARE @zTemp DECIMAL(19,6) 

DECLARE Engine,MasterPriceA!l CURSOR LOCAL F0RWARD_0NLY STATIC FOR 
SELECT DISTINCT 

emp,ETID, 

emp.SequenceNo, 

emp.PriceTag, 

emp.OperandVariable, 

emp.PriceVariable, 

pc.PriceEntryType, 

em. Effective, 

e.TID, 

k.entitycid, 

package.KProductiD, 
package.KServicetD 
FROM 

engine_masterprice AS emp, 
engine AS e, 
engine_master AS em, 
pricecomponents AS pc, 
gasinv, 
k, 

package 



WHERE 



ORDER BY 



(e.ETID=@nETID) AND 
(em.ETlD=e.EM_ETID) AND 
(emp.ETlD=em.ETID) AND 
(gasinv,tid=e.tid) AND 
(k.kid=gasinv.kid) AND 
(package.pkg=gasmv.pkg) AND 
(pc.PriceTag=emp.PriceTag) AND 
(emp.NomOrActual=@nNomOrAct) 

f 

emp.ETID, 
emp.SequenceNo 



* Initialize ail fields here... 



65 */ 

SELECT @yPrice=0 

SELECT @yPricelnterimValue=0 

/* 

70 * Open the cursor to get the pricing 



-42- 



* information and loop through all of 

* the price component records. The end 

* result price will ultimately be 

* updated on the engine rec ord. 

5 — — 

OPEN Engine JVIasterPriceAII 
FETCH NEXT FROM Engine_MasterPriceAli INTO 
@xETID@xSequenceNo,@xPriceTag,@xOperandVa^ 
1 o @xEffective t @xTID t @xEntityCID,@xKProductlD,@xKServicelD 

WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 

•j 5 * Denve the gas month based on the 

* effective from the engine 



* record. 



*/ 

20 SELECT @xEngine_Effective=(SELECT effective FROM engine WHERE ETID=@nETID) 

EXECUTE usp_GasDayToGasMonth @xEngine_Effective,@yMonthDate OUTPUT 

r l ii . LliJL , x ,,,.,.„ fM -.. f 

* Convert the price variable portion to a 
25 * number, if an index then get the index 

* amounts. The default price for any 

* component not in this case statement is 

* zero (ie.. WASP, UNKNOWN, etc.) . 

30 */ 

SELECT ©yPricelnterimValue = 0 



35 DECIMAL(19 f 6)J 



IF @xPriceEntryType='Numenc' 
BEGIN 

SELECT @yPricelnterimValue=CAST(@xPriceVariable AS 



END 

IF ©xPriceEntryType- Monthly IDX 
BEGIN 

EXECUTE uspJGetlndex 
40 @yMonthDate p @yMonthDate,@xPriceVariable,@yPriceinterimVaiue OUTPUT 

END 

IF @xPriceEntryType='Daily IDX 
BEGIN 

EXECUTE uspJGetlndex 
45 @yMonthDate,@xEngine_Effective ) @xPriceVariable,@yPricelnterimVa!ue OUTPUT 

END 

IF @xPriceEntryType='Basket IDX 1 
BEGIN 

EXECUTE uspJGetlndexBasket 
50 @yMonthDate,@xEngine_Effective,@xPriceVariable,@yPricelnterimVa!ue OUTPUT 

END 

IF @xPriceEntryType- Wasp' 
BEGIN 

EXECUTE uspJGetCalcindex 

55 (^TtD,@nNomOrAct@xEntityCID,@xKPra^^ 

END 

IF ©yPricelnterimValue IS NULL 
BEGIN 

SELECT @yPricelnterimValue = 0 

60 END 

r 

* At this point the yPriceinterim Value 

* contains the individual price component 

6 5 * amount. Now, depending on the operator, 

* apply this to the current total 

* (yPrice). The end result is yPrice 

* being updated with this component amount. 

70 */ 
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IF @xOperandVariable- +' 
BEGIN 

SELECT @yPrice=@yPrice+@yPriceinterimVaiue 

END 

IF ©xOperandVariable--' 
BEGIN 

SELECT @yPrice=@yPrice-@yPriceinterimValue 

END 

IF @xOperandVariabie='*' 
BEGIN 

SELECT @yPrice=@yPrice*@yPricelnterimValue 

END 

IF ©xOperandVariable-/ 1 
BEGIN 

IF (@yPrice<>0) AND (@yPricelnterimValue<>0) 
BEGIN 

SELECT 

@yPrice=@yPrice/@yPricelnterimValue 

END 

END 

FETCH NEXT FROM Engine.MasterPriceAII INTO 
@xETlD,@xSequenceNo,@xPriceTag,^ 

©xEffective.QxTID.^EntityCID^xKProductiD.QxKServicelD 
END 

CLOSE Engine.MasterPriceAII 
DEALLOCATE Engine JrfasterPriceAII 

/* 1 1JLJLJLJLJLUU 

* Finally, take the results of the price 

* components and update the engine record 

*with the price. 
* 

* If nom calculation then update then 

* nom price. If actual calculation then 

* update the actualized pnce. 



IF @nNomOrAct=0 
BEGIN 



UPDATE 



END 

IF @nNomOrAct=1 
BEGIN 



UPDATE 



END 



END 



Engine 
SET 

WHERE 



Engine 
SET 

WHERE 



PriceOrRateNom=@yPrice 
ET!D=@nETID 



PriceOrRateAct=@yPrice 
ETiD=@nETID 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

CREATE PROCEDURE usp_message( 
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@messagexVARCHAR(255) 
) 

AS 

/* 

5 1111111111 *** ****** ******* 

Name: uspjmessage 

Description: This routine will dictate where and how messages from the system 
will (or will not) be posted. These are transitory messages generated by the 
1 0 system (like during a calculation). 

Inputs: 

messagex - Text message to wnte 

15 

Outputs: 
None 

20 

History: 

11/07/2000 JAMIE Original creation. 
7 

BEGIN 

DECLARE ©tmpMessage VARCHAR(254) 

r 

30 INSERT INTO ApplicationMessages (ApplicationMessageText) VALUES (©messagex) 

PRINT ©messagex 

7 - 

35 SELECT ©tmpMessage = ©messagex 
END 



40 



45 



50 



GO 

SET QUOTEDJDENTiFIER OFF SETANSLNULLS ON 
55 GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

60 CREATE PROCEDURE usp_PSPrice( 

@PIDx INTEGER, 
©WhichPricex INTEGER, 
@GasMonthx DATETIME, 
@DBCRx INTEGER 

65 ^ ) 

AS 

BEGIN 

'* iiii xu)mimr , i imiiuu u ummuu[ uuuum u iu uiiii 

70 Name: usp.PSPrice 
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Description: Price all of the gas inventory items. 
History: 

5 

xx/xx/xx (?) CHIP Original Creation. 

05/03/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables, in 
1 0 addition, all documentation added. In addition modifications were made to drive the 

pricing off package identifier versus Gas Inventory Transaction Identifier (TID). Since 
ail pricing is done at a package level. 

Only those entries within the gas inventory with pricetype=1 
1 5 will be processed by this procedure. These entries represent 

only the purchase and sale items AND SHOULD HAVE Engine_Master 
records associated with them. 

07/1 2/2000 JAMIE Modified to check for the actualizedflag on the 
20 gasinv record, if the flag is set to a Y then set the price accordingly. If 

the flag is set to something other than a Y (ie.. 'N' or null) then the 
price wilt automatically get a zero. The pnce or rate number for actuals 
will still calculate AND it is possible that some meters within a deal will 
calculate (if the flag is set) whiie other meters on the same deal wiii not 
25 (if the flag is not set). The engine record is where all calculated results 
are stored and will contain zeros for the entries that have not been 
setup to be actualized. 



30 7 

r 



* Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE ©tmpEndDate DATETIME 

DECLARE ©tmpNextEffectiveDate DATETIME 

DECLARE ©tmpNumberDays INTEGER 
40 DECLARE ©tmpVolumelnPeriod DECIMAL(19,2) 

DECLARE @tmpDateToUse DATETIME 

DECLARE @yTID INTEGER 

DECLARE ©yActualizedFlag VARCHAR(1) 

DECLARE ©ySTID INTEGER 
45 DECLARE ©yEffective DATETIME 

DECLARE @yETID INTEGER 

DECLARE @zRound INTEGER 

50 DECLARE GaslnventoryCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 

SELECT 

DISTINCT 
TID, 

ActualizedFiag 
55 FROM 

Gasinv 

WHERE 

(PKG=@PIDx)AND 
(PriceType=1)AND 

60 (DBCR=@DBCRx) 
/* 

* At this point the calculation needs to 

* happen, iterate through each of the 

65 * inventory items attached to this particular " 

* package... Only STiD's of 8 or 9 are 

* priced here... (STiD=8 is DBCR=0 is a 

* purchase),(ST!D=9 is DBCR=1 is a sale). 

70 * Within each inventory item go through 
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* each effective date/STID and use the 

* pricing rules to determine whether the 

* pricing accumulates or is all or 

* nothing. 

5 ******** *********************** 

*/ 

EXECUTE usp_GetProductVo!umeRound @PIDx,@zRound OUTPUT 
OPEN GasinventoryCursor 

FETCH NEXT FROM GasinventoryCursor INTO @yTiD,@yActuaiizedFlag 
1 0 WHILE @@FETCH_STATUS = 0 

BEGIN 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 

15 e.ETID, 

e.Effective, 
e.STID, 
e.TID 
FROM 

20 Engine AS e T 

EngineJvlasterAS em 

WHERE 

(em.ETID=e.EM_ETiD) AND 
(em.P!D=e.VolGroup)AND 
25 (e.TID=@yTID) 

ORDER BY 

e.ETiD 

OPEN EngineCursor 

FETCH NEXT FROM EngineCursor INTO @yETID,@yEffective f @ySTID,@yTID 
30 WHILE @@FETCH_STATUS = 0 

BEGIN 

I* 

* Calculate and update the engine with the 
35 * the actual price from the enginejnaster 

* via call to the following function. 

*/ 

EXECUTE uspJJnePrice @yETiD,@WhichPricex 

40 r 

* Determine the volume total to be applied 

* to this price line here. This represents 

* the sum of the volume between the 
4 5 * effective date and the end of the 

* month OR the next price effective 

* date for this item. The value of 

* tmpNumberDays contains the number of 

* days to apply the price and volumes 
50 * toward within the calculation. 

*/ 

EXECUTE uspJLastDay @GasMonthx,@tmpEndDate OUTPUT 
SELECT @tmpNextEffectiveDate=(SELECT MlN(effective)-1 FROM 
55 engine AS e WHERE (e.TID=@yT!D) AND (e.STID=@yST!D) AND (e.Effective>@yEffective)) 

IF ©tmpNextEffectiveDate IS NULL 
BEGIN 

SELECT 

@tmpNextEffectiveDate=@tmpEndDate 
60 END 

IF @tmpNextEffectiveDate<@tmpEndDate 
BEGIN 

SELECT 

@tmpDateToUse=@tmpNextEffectiveDate 
65 * END 

ELSE 

BEGIN 

SELECT @tmpDateToUse=@tmpEndDate 

END 
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SELECT 

@tmpNumberDays=DATEDIFF(day,@yEffective,@tmpDateToUse) + 1 

IF @WhichPricex=0 
BEGIN 

5 SELECT 

@tmpVolumelnPenod=lSNULL((SELECT SUM(Nom) FROM GaslnvD WHERE (GaslnvD JiD=@yTID) 

AND (GasinvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

1 0 IF @WhichPricex=1 

BEGIN 

IF @yActualizedFlag='Y' 
BEGIN 
SELECT 

1 5 @tmpVolumelnPeriod=!SNULL((SELECT SUM(PipelineActuals) FROM GaslnvD WHERE (GasinvD.TID=@yTl D) 

AND (GasinvD.GasDay BETWEEN @y Effective AND @tmpDateToUse)),0) 

END 

ELSE 

20 BEGIN 

SELECT @tmpVolumelnPeiiod=0 
END 

END 

r 



25 



35 



* Update the actual engine volumes and 

* amounts here... 



7 

30 IF@WhichPricex=0 

BEGIN 

UPDATE 

Engine 
SET 



Volume=ROUND(@tmpVolume!nPeriod,@zRound), 



Amount=ROUND((@tmpVolumelnPeriod*Engine.PriceOrRateNom) ) 2) 

WHERE 

40 ETlD=@yETID 

END 

iF@WhichPricex=1 
BEGIN 

UPDATE 

45 Engine 

SET 

VolumeA^ROUNDtQtmpVolumelnPeriod.QzRound), 

50 AmountAct=ROUND((@tmpVolumelnPeriod*Engine.PriceOrRateAct),2) 

WHERE 



ETID=@yETlD 



END 

FETCH NEXT FROM EngineCursor INTO 

55 @yETID,@yEffective,@ySTID,@yTID 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

FETCH NEXT FROM GasinventoryCursor INTO @yTID,@yActuaiizedFlag 

60 END 

CLOSE GasinventoryCursor 
DEALLOCATE GasinventoryCursor 
END 

65 



GO 

SET QUOTED ^IDENTIFIER OFF SETANSLNULLS ON 
70 GO 
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SET QUOTED J DENTIFIER OFF SET ANSI_NULLS ON 
GO 

5 CREATE PROCEDURE usp_PSPriceAII( 

©GasMonthx DATETIME, 
©DebitCreditx INTEGER, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 

10 @EntityCIDxVARCHAR(12), 

©InciudeinWASPx VARCHAR(10) 
) 

AS 

BEGIN 
15 r 



Name: usp.PSPriceAII 
Description: 

20 

Loop thruough all packages (deals) involved within a given month (purchase 
or sale) and invoke the price procedures. 

Inputs: 

25 

GasMonthx (Gas Month to price), 
DebitCreditx (0=Debit (Purchases) - 1=Credit (Sales)), 
WhichPricex {0=Nominations, ^Actualizations 
PKGx (0=ail otherwise specific package ID) 
30 EntityCIDx (owning company entity id) 

InciudelnWASPx (" for all, otherwise check for 'CommonVDedicated', or 'None') 

History: 

35 05/13/99 JAMIE This entire process was rewritten with V2.10 of 

the Gas Control System. Package driven now 
instead of individual inventory item driven. 

07/22/99 JAMIE Include 3rd party deals within the 
40 calcualtion process. They WILL NOT BE included within the WASP calculations 

and will be treated the same as "Dedicated" (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component. 

05/24/2000 JAMIE Modified to include the changes to calculate based on company 
45 entity iD (passed to this calculation). This ensures that WASP caiculations/etc 
are all within their respective companies... The deai cursor (PackageCursor) 
will now oniy select those items where the entity ID for the contract on the deai 
matches the one passed to this routine. 

50 07/26/2000 JAMIE Modified to include the IncludelnWaspx parameter to 

this particular procedure. This will allow certain types of deals to 
be priced independently of other types (ie.. do 3rd party first in order 
to divie the proceeds either to a pool OR to another deal). 

55 * ********** *** ********* 

*/ 

/* 



* Declare ali variables and cursors 
60 * that are needed by this process. 



7 

DECLARE @zTypeText VARCHAR(10) 
DECLARE ©zMessage VARCHAR(255) 

65 

DECLARE @yPKG INTEGER 

DECLARE ©ylncludelnWasp VARCHAR(10) 

DECLARE PackageCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
70 SELECT 
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30 



DISTINCT 

Gasinv.PKG 

FROM 

Gasinv, 

5 Package, 

K 

WHERE 

Package.PKG=Gaslnv.PKG AND 
K.KiD=Package.KID AND 
1 0 K.EntityClD=@EntityCiDx AND 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=@DebitCreditx AND 
Gaslnv.PriceType^l 

ORDER BY 

1 5 Gasinv.PKG 

ll*** x 

* initialize any fields required. 



20 V 

IF @DebitCreditx=0 
BEGIN 

END 

25 IF @DebitCreditx=1 

BEGIN 



END 

/* 



SELECT @zTypeText='Purchase r 
SELECT @zTypeText= f Saie* 



* Loop through each package 

* involved in this calculation. As each 

* deal is fetched get its WASP indicator 

* information in order to determine if 
35 * it can be i nvolved in this process. 

*/ 

OPEN PackageCursor 

FETCH NEXT FROM PackageCursor INTO @yPKG 
40 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

EXECUTE uspJGetWASPindicator @yPKG,@ylncludeinWasp OUTPUT 
IF (@PKGx=0) OR ((@PKGx<>0) AND (@PKGx=@yPKG)) 
45 BEGIN 

IF (@lnciudelnWaspx= n ) OR (©Include! nWaspx=@ylncludeinWasp) 
BEGIN 

SELECT @zMessage = 'PSPriceAII Running 
for Entity , -^EntityCIDx+ i and type '+@zTypeText+\ Package:'*' , 4CONVERT(VARCHAR(10) t @yPKG)+'....' 
50 EXECUTE usp_message ©zMessage 

/* 

* Reset the financial override dollar 

* amount to zeros at the beginning of the 
55 * calculate for the deal... 



60 



65 



FinancialNomAmount=0 



PKG=@yPKG 



70 



*/ 

IF @WhichPricex=0 
BEGIN 
UPDATE 



package 
SET 



WHERE 



END 
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IF @WhichPricex=1 
BEGIN 
UPDATE 



package 
SET 



FinanciatActAmount=0 



WHERE 



10 



PKG=@yPKG 



END 



15 



20 



25 



30 



35 



40 



45 



50 



@yPKG,@WhichPricex,@GasMonthx,@DebitCreditx 



@yPKG 1 @WhichPricex,@GasMonthx 1 @DebitCreditx 



@yPKG,@WhichPrioex,@GasMonthx,@DebitCrsditx 



END 



* Create any system generated pricing 

* components for this package... These 

* pricing components are tightly related 
*totheEngine_Master. This is needed 

* to be done prior to populating the 

* Engine with pricin g information. 

*/ 

EXECUTE usp_PSPriceComponentsCheck 

r 

* Now create all engine items for all 

* Engine_Master records. This is where 

* the engine will be populated with entries 

* based on information stored in the 

* Engine JAaster. Included is the daily 

* index price 'proliferation' routine. 

um ii aiiutoauMUMi i iniii^n^' * * **** 

7 

EXECUTE usp_PSPricePopulateEngine 

r 

* Finally, now go and pnce the actual 

* engine entries that were created in the 

* previous step... 

7 



EXECUTE usp.PSPrice 



END 

COMMIT WORK 

FETCH NEXT FROM PackageCursor INTO @yPKG 

END 

CLOSE PackageCursor 
DEALLOCATE PackageCursor 
END 



55 



60 



65 



70 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAnyNewlnvoicesNeeded( 



@GasMonthx DATETIME, 
@EntityCIDxVARCHAR{12) 
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AS 

BEGIN 
/* 



5 Name: usp.PSPriceAnyNewlnvoicesNeeded 

Description: 

This routine gets executed once a gas month has been put 
10 in an 'invoiced' status. It will automatically go out and assign and invoice 

number where one previously did not exist (could use the same invoice 
number as an existing). 



15 



20 



25 



35 



Inputs: 

GasMonthx - Gas month being calculated 
EntityClDx- owning company 

History: 

12/15/1999 JAMIE Original creation 

12/21/1999 JAMIE Modify to put the monthly aphabetic code as the first 
field of the invoice number to eliminate OGSYS clipping of a leading zero. 

05/24/2000 JAMIE Modified to only create the invoices within the given owning 
company. The invoice numbers wiil need to be unique within the entire system. 



30 */ 

r 



* Declare all variables and cursors 

* that are needed by this process. 



*/ 

DECLARE @yT!D INTEGER 

DECLARE @yClD VARCHAR(12) 

DECLARE @yPipe VARCHAR(12) 
40 DECLARE @zAcctgldentifier VARCHAR{12) 

DECLARE @zYear INTEGER 

DECLARE ©zYearString VARCHAR(1) 

DECLARE ©zMonth INTEGER 

DECLARE ©zMonthString VARCHAR(1) 
45 DECLARE ©zNumToUse INTEGER 

DECLARE ©zNumToUseLength INTEGER 

DECLARE @zNumToUseString VARCHAR(3) 

DECLARE ©zNumToUseZeros VARCHAR(3) 

DECLARE @zMaxAcctgldentifier VARCHAR(12) 
50 DECLARE ©zWorkString VARCH AR(1 2) 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

Gaslnv.TiD, 

55 Gaslnv.CID, 

Gasinv.PipeField 
FROM 

Gaslnv, 
Package, 

60 K 

WHERE 

Gaslnv,GasMonth=@GasMonthx AND 
Gas!nv.PriceType=1 AND 
Gasinv,DBCR=1 AND 

65 (Acctgldentifier IS NULL OR Acctgldentifier=") AND 

Package.PKG=Gaslnv.PKG AND 
K.KID=Package.KlD AND 
K.EntityClD=@EntityCIDx 

ORDER BY 

70 Gaslnv.CID, 
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Gaslnv.PipeField 



10 



* Determine the prefix to use for the 

* creation of the invoice numbers, if more 

* than 10 years then these numbers begin 

* to be reused. 

* This routine is CHEAP but it should 

* suffice. 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



SELECT @zYear=YEAR(@GasMonthx) 
SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4),@zYear) t 1) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF @zMonth=1 



BEGIN 

END 
IF @zMonth=2 

BEGIN 

END 
IF @zMonth=3 

BEGIN 

END 
IF @zMonth=4 

BEGIN 

END 
IF @zMonth=5 

BEGIN 

END 
IF @zMonth=6 

BEGIN 

END 

IF@zMonth=7 

BEGIN 



IF @zMonth= 



END 
:h=8 
BEGIN 



END 
iF@zMonth=9 

BEGIN 

END 

IF @zMonth=10 

BEGIN 

END 

IF@zMonth=11 

BEGIN 

END 

fF@zMonth=12 

BEGIN 

END 



SELECT @zMonthString='A' 
SELECT @zMonthString='B' 
SELECT @zMonthString='C' 
SELECT ©zMonthString^D' 
SELECT @zMonthStnng= , E t 
SELECT @zMonthString='F 
SELECT @zMonthString- G' 
SELECT ©zMonthString^H* 
SELECT @zMonthString=T 
SELECT @zMonthString- J' 
SELECT QzMonthString^K' 
SELECT @zMonthString='L' 



* Find the starting point to begin 

* assigning new invoices from just 

* in case some numbers need to be 

* assigned. 
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*/ 

SELECT @zNumToUse=0 Akir ^ 
SELECT @zMaxAcctgldentifieF{SELECT max(Acctgldentifier) FROM Gaslnv WHERE GasMonth=@GasMonthx AND 
DBCR=1 ANDPriceType=1) 
5 IF LEN(@zMaxAcctgldentifier) = 6 

BEGIN 

SELECT @zWorkString=RIGHT(@zMaxAcctgldentifier,4) 

SELECT @zWorkString=LEFT(@zWorkString,3) 

SELECT @zNumToUse=CONVERT(lNTEGER,@zWorkString) 

10 END 

^ ^u min r, 

* Now go get the records that do not 

* yet have a invoice number assigned 

15 * to them (ie. execute the cursor). 

*********-***************★***************** 

*/ 

OPEN GasinvCursor 

FETCH NEXT FROM GasinvCursor INTO @yTID,@yCID,@yPipe 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

/* 



25 



35 



* Now go and find one, if one exists. 



*/ 

SELECT @zAcctgidentifier=(SELECT DISTINCT(Acctg Identifier) FROM Gasinv WHERE 
GasMonth=@GasMonthx AND 

DBCR=1 AND PriceType=1 AND C!D=@yCID 
30 AND PipeFieid=@yPipe AND Acctgldentifier IS NOT NULL AND Acctgldentifiero" 



IF @zAcctgldentifier IS NULL 
BEGIN 

/* 



* For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 
40 * to create a complete invoice number. 

* REALLY CHEAP ZERO PADDING . 

*/ 

SELECT @zNumToUse=@zNumToUse+1 
45 SELECT 

@zNumToUseString=CONVERT(VARCHAR{3),@zNumToUse) 

SELECT @zNumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros=" 
IF ©zNumToUseLength < 3 
50 BEGIN 

IF @zNumToUseLength=2 

BEGIN 

SELECT @zNumToUseZeros-0' 
END 

55 IF @zNumToUseLength=1 

BEGIN 
SELECT 

@zNumToUseZeros='00' 

60 EN °; 

SELECT 

@zAcctgldentifieF@zMonthString+@zYearString-^@zNumToUseZeros+@zNumToUseSt^ng+ , N , 

r 



Q5 * Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 

*/ 

70 UPDATE 
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Gaslnv 
SET 

Acctgldentifier=@zAcctg Identifier 

WHERE 

5 GasMonth=@GasMonthx AND 

DBCR=1 AND 
PriceType=1 AND 
CID=@yCIDAND 
PipeField=@yPipe AND 

1 0 TID=@yTID 

END 

FETCH NEXT FROM GaslnvCursor INTO @yTiD,@yCID,@yPipe 

END 

CLOSE GaslnvCursor 
1 5 DEALLOCATE GaslnvCursor 

END 



20 

GO 

SET QUOTED ^IDENTIFIER OFF SETANSLNULLS ON 
GO 

25 SET QUOTED JDENTIF1ER OFF SETANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceAssignlnvoiceNo( 

©GasMonthx DATETiME 
30 ) 
AS 

BEGIN 

SETNOCOUNTON 

r 

35 — — — * ******** 

Name: usp_PSPriceAssignlnvoiceNo 

Description: This routine will dear out any existing invoice numbers on thetjas 
inventory table AND generate/assign an invoice number and post to the gas 
40 inventory table. 

This particular routine is only looking at 'Sales' (DBCR=1) within the specified 
gas month (GasMonthx) that have a price type ofT (ie.. not a transport inventory 
item). 

45 

The format of the invoice number that gets generated will be as follows: 
Character 



50 1 Represents aiph code for month (A=January, B=February, etc.). 

2 Represents the last digit of the year (1999=9, 2000=0, etc.), 
3-5 Represents unqiue number assigned. 
6 Represents 'N' for Nominations. 

55 These invoice numbers are generated uniquely for ail sales meters within a given pipe and 

company identifier This procedure will assign the invoice number to both the 
nom and actual fields. Later (during actual calculations) the actual invoice number may 
or may not get updated based on the modifications made to the volumes or prices, 

60 Inpgts: GasMonthx (Gas Month to calculate), 

History: 

10/27/1999 JAMIE Original creation 

65 

11/19/1999 JAMIE Modified the number creation to post the final character as 
an 'N\ 

12/21/1999 JAMIE Modified the number creation process to put the monthly 
70 alphabetic code at the beginning of the invoice number instead of the 2nd 
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character. 



* Declare ail variables and cursors 

* that are needed by this process. 



10 



15 



20 



25 



30 



*/ 

DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 

r 



@yCIDVARCHAR(12) 
@yPipeVARCHAR(12) 
©zAcctg Identifier VARCHAR(12) 
@zYear INTEGER 
©zYearString VARCHAR(1) 
@zMonth INTEGER 
@zMonthString VARCHAR(1) 
@zNumToUse INTEGER 
@zNumToUseLength INTEGER 
@zNumToUseString VARCHAR(3) 
@zNumToUseZeros VARCHAR(3) 



* Determine the prefix to use for the 

* creation of the invoice numbers. If more 

* than 10 years then these numbers begin 

* to be reused. 
* 

*This routine is CHEAP but it should 

* suffice. 



35 



40 



45 



50 



55 



60 



65 



70 



SELECT @zYear=YEAR(@GasMonthx) 
SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4),@zYear) l 1) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF@zMonth=1 



BEGIN 

END 
IF @zMonth=2 

BEGIN 

END 
IF @zMonth=3 

BEGIN 

END 
IF @zMonth=4 

BEGIN 

END 
IF @zMonth=5 

BEGIN 

END 
IF @zMonth=6 

BEGIN 

END 
IF @zMonth=7 

BEGIN 

END 
IF @zMonth=8 

BEGIN 

END 
IF @zMonth=9 

BEGIN 



SELECT @zMonthString= l A' 
SELECT @zMonthString='B' 
SELECT ©zMonthString-C 
SELECT ©zMonthString-D' 
SELECT @zMonthString='E' 
SELECT @zMonthString- P 
SELECT @zMonthString=*G' 
SELECT @zMonthString= , H' 
SELECT @zMonthString=T 
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END 

IF @zMonth=10 

BEGIN 

5 END 
IF@zMonth*11 

BEGIN 

END 

10 lF@zMonth=12 

BEGIN 

END 



35 



SELECT @zMonthString='J' 



SELECT @zMorrthString=W 



SELECT ©zMonthString- L' 



15 — « 

* Clear out the invoice number that may 

* have preexisted for this particular 

* gas month (this number will always be 

* empty UNLESS the gas month is opened 
20 * and closed more t han on ce), 

7 

BEGIN TRANSACTION 
UPDATE 
25 Gaslnv 
SET 



WHERE 



Acctgidentifier=NULL 



GasMonth=@GasMonthx AND 
30 DBCR=1 AND 



COMMIT WORK 

r 



PriceType=1 AND 

(Acctgidentifier IS NOT NULL OR Acctgidentifier<> M ; 



* Now buifd a cursor that contains all of 

* the unique combinations of company and 

* pipeline (ordered by company and pipeline). 



40 7 

SELECT @zNumToUse=0 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 

45 (Gaslnv.CID), 

(Gaslnv.PipeField) 
FROM 

Gaslnv 

WHERE 

50 Gasinv.GasMonth=@GasMonthx AND 

Gaslnv.PriceType=1 AND 
Gasinv.DBCR=1 

ORDER BY 

Gaslnv.CID, 

55 Gaslnv.PipeField 
OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 BEGIN TRANSACTION 

/* 



* For each of these combinations generate 

* and invoice number and update the Gasinv 
65 * table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number, 
*RE ALLY CH EA P 

70 7 
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SELECT @zNumToUse=@zNumToUse+1 
SELECT @zNumToUseString=CONVERT(VARCHAR(3) ( @zNumToUse) 
SELECT @zNumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros- ' 
5 IF ©zNumToUseLength < 3 

BEGIN 

IF @zNumToUseLength=2 
BEGIN 

SELECT @zNumToUseZeros='0* 

10 END 

IF@zNumToUseLength=1 
BEGIN 

SELECT ©zNumToUseZeros^OO' 

END 

15 E ND 

SELECT 

@zAcctgldentlfier=@zMonthS^ring^zYearString^zNumToUseZeros^zNu^lToUseString+ , N , 

r 

20 * Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 



25 UPDATE 



50 



60 



Gaslnv 
SET 



Acctgldentifier=@zAcctgidentifier 
WHERE 

30 GasMonth=@GasMonthx AND 

DBCR=1 AND 
PriceType=1 AND 
ClD=@yCIDAND 
PipeField=@yPipe 

35 COMMIT WORK 

FETCH NEXT FROM GasinvCursor INTO @yCID,@yPipe 

END 

CLOSE GasinvCursor 
DEALLOCATE GasinvCursor 
40 END 



45 

GO 

SET QUOTEDJDENTiFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSi.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAuto 
55 AS 

BEGIN 

r 



Name: usp_PSPriceAuto 
Description: 



This procedure will be scheduled at automatically calculate the gas months 
in their respective stages. Noms get calculated for gas months in the 'Sales' stage. 
65 Pipeline actuals get calculated for gas months in the 'Invoiced' stage. All other gas 

months are ignored by this process. 

Inputs: 

70 None 
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History: 



07/29/1999 JAMIE Original Creation. 

5 

1 0/20/1 999 JAMIE Modified to invoke the PSPriceCostAII routine which will 
calculate other costs for deals and post them to the engine table. 

03/22/2000 JAMIE Modified to invoke the single month calculation routine. This wtil 
1 0 ensure easier (non duplicated) maintenance on procedures to update price calculations. 



*/ 
/* 

15 ~* *************** ~~ 

* Declare all variables and cursors 

* that are needed by this process. 



7 

20 DECLARE ©yGasMonth DATETiME 

r 



* First, calculate all of the nom 

* numbers (each gas month). 

25 ************ — * — 

7 

DECLARE GasMonthCursorl CURSOR LOCAL STATIC FORWARD JDNLY FOR 
SELECT 

GasMonth 

30 FROM 

rGasMonth 

WHERE 

CurrentStatus='Saies' AND 
(LockedUser IS NULL OR LockedUser=") 

35 ORDER BY 

GasMonth 

OPEN GasMonthCursorl 

FETCH NEXT FROM GasMonthCursorl INTO ©yGasMonth 
WHILE @@FETCH_STATUS = 0 
40 BEGIN 

EXECUTE usp_PSPriceAutoMonth @yGasMonth,0 
FETCH NEXT FROM GasMonthCursorl INTO ©yGasMonth 

END 

CLOSE GasMonthCursorl 
45 DEALLOCATE GasMonthCursorl 

r 



* Now calculate based on the pipeline 

* actuals each month. 
50 ***** ***** 

7 

DECLARE GasMonthCursor2 CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

GasMonth 

55 FROM 

rGasMonth 

WHERE 

CurrentStatus- Invoiced' AND 
(LockedUser IS NULL OR LockedUser=") 

60 ORDER BY 

GasMonth 

OPEN GasMonthCursorl 

FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 
WHILE @@FETCH_STATUS = 0 
65 BEGIN 

EXECUTE usp_PSPriceAutoMonth @yGasMonth,1 
FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 

END 

CLOSE GasMonthCursor2 
70 DEALLOCATE GasMonthCursor2 
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END 



5 

GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

10 SET QUOTEDJDENTiFiER OFF SETANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceAutoMonth( 

©GasMonthx DATETIME, 
1 5 @WhichVolumex INTEGER 

) 

AS 

BEGIN 

SET NOCOUNTON 

20 r 



Name: usp_PSPriceAutoMonth 
Description: 

25 

This procedure will be execute ail of the price calculation procedures 

required for a given month INCLUDING locking the month from other executions... This 

particualr procedure will be executed asynchronously by the system through the online 

screens. 

30 

Inputs: 

GasMonthx (Gas month to calculate) 

Which Volumex (Price noms=0, Price actuais=1) 

35 

History: 

08/31/1999 JAMIE Original Creation. 

40 1 2/1 5/1 999 JAMIE Modified to execute a new stored procedure once 

the gas month has been changed to the 'Accounting' status. This new 
procedure will mark and 'zap* the invoice numbers (amongst other things) 
on those gas inventory items were some sort of a price or volume adjustment 
was made. 

45 

03/22/2000 JAMIE Modified this process to handle all of the calculations for 
gas months, etc. Moved the 'Divie 1 process to this routine (was buried within 
the transport cost module). 

50 05/24/2000 JAMIE Modified to enable an outer cursor on company entity (CID). This will 
allow for the partitioning of the calculations based on company ID (so we don't mix 
WASP Pool results/etc). 

07/26/2000 JAMIE Modified to incorporate the changes to process calculations for certain 
55 types of deals prior to others (ie. 3rd party first so that profits can be distributed. 

This change included passing a new parameter to the PSPriceAH function (on which 
pool ("for all)... 

08/25/2000 JAMIE Modified to remove logic that invoked the older calculation 
60 routines. 

02/01/2001 JAMIE Modified to remove the transport section (commented out). 



65 7 

DECLARE @yCIDEntity VARCHAR(12) 
DECLARE ©yGasMonth DATETIME 
DECLARE ©yCurrentStatus VARCHAR(20) 

70 DECLARE EntityCIDCursor CURSOR LOCAL STATIC FORWARDJ3NLY FOR 
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10 



20 



25 



30 



50 



60 



SELECT 

CID 
FROM 

company 

WHERE 

Entity! ndicator=T 

ORDER BY 

CID 



* Execute a cursor to cafcuiate based on 

* entity. 



*/ 

1 5 OPEN EntityCIDCursor 

FETCH NEXT FROM EntityCIDCursor INTO @yC!DEntity 
WHILE @@FETCH_STATUS = 0 
BEGIN 

r 



* Now only calculate if the month 

* is not currently involved with a 

* calculation of some sort (month 

* needs to be unlocked). 

* If the status was modified and the 

* current status in 'Invoiced' then 
*go and build all of the pipeline 

* actuals. 



7 

DECLARE GasMonthCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

GasMonth, 

35 CurrentStatus 

FROM 

rGasMonth 

WHERE 

GasMonth=@GasMonthx AND 
40 (LockedUser IS NULL OR LockedUser=") 

OPEN GasMonthCursor 

FETCH NEXT FROM GasMonthCursor INTO @yGasMonth,@yCurrentStatus 
WHILE @@FETCH_STATUS = 0 
BEGIN 

45 r 



* Indicate that the gas month is in 

* progress so that no one else tryes to 

* calculate at the same time. 



7 

UPDATE 

rGasMonth 
SET 

55 LockedUser='PSPriceAutoM\ 

LockedDate=getdate() 

WHERE 

GasMonth=@GasMonthx 

r 



* Calculate prices on ail sales deals... 



7 

EXECUTE usp.PSPriceAl! 
65 @GasMonthx,1, ©Which Volumex,0,@yCidEntity," 

r 

* Calculate 'Other Costs' associated to 

* all sales deals (required here in 
70 * order to post the other cost amounts 
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* to WASP pools/etc... 



25 



30 



65 



*/ 

EXECUTE usp_PSPriceCostAII 

@GasMonthx,@WhichVolumex,@yCIDEntily f 1 l " 

r 



* Now create the temporary WASPRouting 

* table entries for all products, services 
10 * and wasp types. The calculations will 

* not 'walk back' from sale to purchase 

* here (unless OLD routin g month)... 

*/ 

1 5 EXECUTE usp_PSPriceWASPCafc 

@GasMonthx T @WhichVoiumex,@yClDEntity 



/* 



* If new routing method then resolve based 
20 * on entity and IncludelnWasp pool. This 

* is done this way in order to potentially 

* distribute proceeds from 3rd party 

* deals back to either a WASP pool meter 

* or to another deal... 



* 1. Resolve and price 'None' pool. 
*2. Divie out any proceeds. 

* 3. Resolve and price 'Dedicated' pool. 

* 4. Resolve and price 'Common' pool. 



*/ 

EXECUTE usp_PSPriceWASPCaIcResolveDriver 
©GasMonthx^WhichVoiumex^yClDEntity/None' 

EXECUTE usp_PSPriceAll 
35 @GasMonthx ( 0 1 @WhichVoiumex,0,@yCIDEntity, , None' 

EXECUTE usp.PSPriceCostAI! 
@GasMonthx f @WhichVolumex 1 @yClDEntity,0, l None' 

EXECUTE usp_PSPriceWASPDivieOutProceedsN 

@GasMonthx,@WhichVolumex,@yClDEntity 
40 EXECUTE usp_PSPriceWASPCaicResolveDriver 

©GasMonthx^WhichVolumex^yClDEntity.'Dedicated 1 

EXECUTE uspJ'SPriceAll 
@GasMonthx ) 0,@WhichVolumex,0 ) @yClDEntity;Dedicated 1 

EXECUTE usp.PSPriceCostAII 
45 ©GasMonthx.QWhichVoiumex.gyCIDEntity.O/Dedicated' 

EXECUTE usp.PSPriceWASPCalcResolveDriver 
ftGasMonthx.QWhichVolumex.eyCIDEntity.'Common' 

EXECUTE uspJ>SPriceAH 
©GasMonthx^.QWhichVolumex.O.QyCIDEntity/Common' 
50 EXECUTE usp.PSPriceCostAII 

gGasMonthx.gWhichVolumex.QyCIDEntity.O/Common' 

r 

* Calculate Transport contract gas inventory 
55 * items (create them along with any 

* transport deals). 

EXECUTE usp_PSPriceTransportAII 

@GasMonthx 1 @WhichVolumex 1 0 1 @yCIDEntity 
60 */ 



* Indicate that the gas month is finished 
*and commit the updates. 



*/ 

UPDATE 

rGasMonth 
SET 

70 LockedUser=" 
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WHERE 



GasMonth=@GasMonthx 



10 



15 



20 



25 



@yGasMonth,@yCIDEntity 
@yGasMonth,@yCurrentStatus 



* Check to make sure that any items that 

* require an invoice number gets created. 

* This is only applicable when the gas month 

* is in an 'Invoiced' state already. This 

* picks up any new deals/meters created 

* after the gas month promoted to 'Invoiced'. 



*/ 

IF (©yCurrentStatus^lnvoiced 1 ) 
BEGIN 

EXECUTE usp.PSPriceAnyNewlnvoicesNeeded 
END 

FETCH NEXT FROM GasMonthCursor INTO 



END 

CLOSE GasMonthCursor 

DEALLOCATE GasMonthCursor 

FETCH NEXT FROM EntityCIDCursor INTO ©yClDEntity 

END 

CLOSE EntityCIDCursor 
DEALLOCATE EntityCIDCursor 
END 



30 



35 



40 



45 



GO 

SET QUOTED JDENTIF1ER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTiFIER OFF SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceComponentsCheck( 



@PIDx INTEGER, 
@WhichPricex INTEGER, 
@GasMonthx DATETIME, 
@DBCRx INTEGER 



50 



55 



60 



65 



AS 

BEGIN 

r 

Name: usp.PSPriceComponentsCheck 
Description: 

Create any system generated pricing components automatically. Any existing 
system generated pricing components are deleted. Then they are recreated 
within this particular process. This procedure should be invoked for all 
packages that were created within a given gas month. Current System 
Generated Items include price components tagged as 'NETBACK PERCENTAGE' or 
'WASP'. 

Inputs: 

PIDx - Package Identifier 
WhichPricex-0=Nominations, 1=Actuals 
GasMonthx - Gas Month for Price Calculations 
DBCRx - 0=Purchase, 1=Sales 



70 



History: 



-63- 



05/12/1999 JAMIE Original Creation. 



10 



45 



07/28/2000 JAMIE Modify this process so that OIL, GAS or LIQUIDS is used when 
obtaining the netback percentage. This is based on the product ID for the deai. 

08/17/2000 JAMIE Modify the process to eliminate any pricing entries on 
WASP/EQUITY deals ('Common' pool). This will ensure that the only pricing 
entries on the wasp deals are those that are system generated. 



1 5 * Declare all variables and cursors 

* that are needed ^y^'f^/Q^^^ 

*/ 

DECLARE ©zProductID INTEGER 
20 DECLARE ©zProductNetbackType VARCHAR{12) 

DECLARE ©yWasplndicator VARCHAR(tO) 

DECLARE @yEngineMasterRecords INTEGER 

DECLARE @yEngineMasterETID_Key INTEGER 

DECLARE @yEngineMasterPriceSequence INTEGER 
25 DECLARE ©yNetBackPercentage DECIMAL(19,8) 

DECLARE ETIDCursor CURSOR LOCAL STATIC FORWARDJ3NLY FOR 
SELECT 

DISTINCT 

30 ETID 
FROM 

Engine Jvlaster 

WHERE 

PID=@PlDx 

35 r ^ 

* Get the WASP indicator for this 

* particular deai via a function call. 

* This is based on how the deal is 
40 * classified. 

7 

EXECUTE usp JGetWasplndicator @P!Dx t @y Waspindicator OUTPUT 

r 



* All deals should have system generated 

* price entries removed here... 



* In addition, 'Common' wasp pool deals 
50 * will have alt non system generated 

* price entries removed. Only purchase 

* deals are impacted by system generated 

* entries. ____ 

55 */ 

OPEN ETIDCursor 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 IF ©yWaspindicatop'Common' 

. BEGIN 

IF@DBCRx=0 

BEGIN 

DELETE 

65 ' FROM 

Engine_MasterPrice 

WHERE 

(Engine_MasterPrice.ETlD=@yEngineMasterETID_Key) AND 
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(Engine_MasterPrice.NomOrActual=@WhichPricex) 

END 

END 

5 ELSE 

BEGIN 

DELETE 

FROM 

Engine JfeterPrice 

10 WHERE 

(Engine_MasterPrice.ETID=@yEngineMasterETID_Key) AND 

(Engine_MasterPrice.NomOrActual=@WhichPricex)AND 
1 5 (Engine Jv!asteiPricePriceTag=ANY(SELECT 

PriceTag FROM PriceComponents WHERE SystemGenerated- Y')) 

END 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 

END 

20 CLOSE ETIDCursor 

DEALLOCATE ETIDCursor 

r 

* Now generate (insert) the price 

2 5 * components that are required. These 

* system generated price components are 

* recognized by the PriceTag name. There 

* should be a section within this procedure 

* specifically for any system generated 
30 * pricing components. 

7 
/* 



55 



35 * "WASP" and SETBACK PERCENTAGE" 

* These two compononents go hand-in-hand, 
* 

* 1 . Only system generate these if it is 

40 * a purchase task and the deal is considered 

*'Wasp'able. 

7 

IF ((@yWaspindicator='Common') OR (@yWaspindicator='Dedicated')) AND (@DBCRx=0) 
45 BEGIN 

r 

* Determine the correct product type in order 

* to get the correct contract netback 
50 * tier information. 

7 

EXECUTE uspJGetWaspType @PIDx,@zProductNetbackType OUTPUT 



* Now go and find an Engine_Master record 

* to attach these components too. If one 

* is not found, then insert one. An 

* attempt to preserve the existing record 
60 * will ensure that nominations and pipe 

* line actuals will utilize the same 

* Engine_Master entity. 

7 

65 SELECT @yEngineMasterRecords = iSNULL((SELECT count(*) FROM engine_master 

WHERE PID=@PlDx 

AND Effective=@GasMonthx AND STID=8 AND VolLevei=0),0) 
IF @yEngineMasterRecords=0 
BEGIN 

70 INSERT 
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INTO 

Engine_Master 

(PiD.Effective.STlD^olLevel.VoiGroup.VarFixed^MBtuMCF.TierThreshold) 
5 VALUES 

(@PIDx t @GasMonthx,8,0,@P!Dx,1 ,1,1) 

END 

SELECT @yEngineMasterETID_Key = ISNULL((SELECT MIN(ETID) FROM Engine.Master 

WHERE PID=@PIDx 

1 0 AND Effective=@GasMonthx AND ST!D=8 AND VoiLevel=0) t 0) 

/* iUiUUAAtA1AlutUiUAAilllAtJL 

* At this point we now either have a valid 

* ETID (key) to the Engine_Master or 0. 

1 5 * There should be only a single record on 

* the Engine_Master for these types of 

* packages. 



20 



' Now insert the 'WASP' pnce component. 



*/ 

IF @yEngineMasterETID_Key > 0 
BEGIN 

SELECT ©yEngineMasterPriceSequence = ISNULL((SELECT 

25 MAX(SequenceNo) FROM Engine_MasterPrice 

WHERE ETID=@yEngineMasterETID_Key AND NomOrActual=@WhichPncex),0) 
SELECT @yEngineMasterPriceSequence = 

@yEngineMasterPriceSequence+1 
30 INSERT 

INTO 

Engme.MasterPrice 

(ETID.PriceTag, Operand Variable, PriceVariable,CreateUser t CreateDate,LastUpdateUser T 
35 LastUpdateDate,SequenceNo,NomOrActual) 

VALUES 

(@yEngineMasterETID_Key;WASP , >VWASP , ,UPPER(user_name()) t 

40 getdate() p UPPER(user_name()) f getdate() P @yEngineMasterPriceSequence,@WhichPricex) 

END 

r 



* Now invoke the 'NETBACK PERCENTAGE 
45 * calculation routine and then insert this 

* particular price component Remember to 

* put the netback percentage into its 

* 'string* representation. 

50 */ 

IF @yEngineMasterET!D_Key > 0 
BEGIN 

EXECUTE uspJGetNetbackPercentage 
©PIDx.gGasMonthx.QzProductNetbackType.gWhichPricex.QyNetBackPercentage OUTPUT 
55 IF ©yNetBackPercentage IS NULL 

BEGIN 

SELECT ©yNetBackPercentage = 0 

END 

SELECT @yEngineMasterPriceSequence = 
INSERT 

INTO 

Engine_MasterPrice 



60 @yEngineMasterPriceSequence+1 



65 (ETID,PriceTag,OperandVariable,PriceVariable,CreateUser, 

CreateDate,LastUpdateUser,LastUpdateDate,SequenceNo,NomOrActual) 

VALUES 

{@yEngineMasterETID_Key/NETBACK 

70 PERCENTAGE , ;* , ,LTRiM(STR(@yNetBackPercentage t 8,4)) ) 
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UPPERfCURRENT.USERJ.getdatefl.UPPERtCURRENT^USERJ.getdatefl.gyEngineMasterPriceSequence 
,@WhichPricex) 

END 

5 END 
END 



10 



GO 

15 SET QUOTEDJDENTIFiER OFF SETANSLNULLS ON 

GO 

SET QUOTEDJDENTIFiER OFF SETANSLNULLS ON 
GO 

20 

CREATE PROCEDURE usp_PSPriceCost( 



25 



30 



AS 

35 BEGIN 

r 



Name: usp_PSPriceCost 

40 Description: This particular procedure will perform the actual calculations and post 
updates to the engine table (for other costs associated with deals). This is done 
for each meter within a deal for an other cost item. 

Inputs: 

45 

GasMonthx (Gas Month to cost) 

WhichPricex (0=Nominations, ^Actualizations) 

PKGx(deal id) 

STIDx (engine transaction id) 
50 PCiDx (deal other cost unique id (see PackageCosts table) 

TIDx (gas inventory identifier) 

CostLeveix (Level that cost is appropriated towards) 

CostBasisx (rules governing calculation of the cost) 

CostRateOrAmountx (rate or amount involved in cost) 
55 Total Volumex (total volume for deal) 

MeterVolumex (total volume for meter within deal). 

History: 

60 10/20/99 JAMIE initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deais to have other (fixed) costs 
assigned to them. 

65 10/03/20 JAMIE Modified to correct problem associated with 'METER' 

calculations using entire deal volume. 

12/01/2000 JAMIE Modified to apply the netback percentage to the other 
cost when it is calculated. This percentage is only applicable to purchase 
70 deais that are in the 'Common' or 'Dedicated' pools. 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 
©STIDx INTEGER, 
©PCiDx INTEGER, 
©TIDx INTEGER, 
©CostLeveix VARCHAR(12), 
©CostBasisx VARCHAR(40), 
©CostRateOrAmountx DECIMAL(19,6), 
©TotalVolumex DEC1MAL(19,2), 
©MeterVolumex DECIMAL(19,2) 
) 
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1 2/1 0/2000 JAMIE Modified to check for the apply netback flag on the 
cost record in order to determine if the netback percentage should be 
applied to the cost. 

5 



*/ 

/* 



1 0 * Declare all variables and cursors 
* that are needed by this process. 

*/ 

DECLARE ©zNetbackPercent DECIMAL(19,6) 
1 5 DECLARE ©zProductNetbackType VARCHAR(1 2) 

DECLARE @yWasplndicator VARCHAR(10) 
DECLARE @zDBCR INTEGER 
DECLARE ©zAppiyNetback VARCHAR(1) 

20 DECLARE ©zPercentToApply DECIMAL(19,4) 

DECLARE ©zAmountToApply DECIMAL(19,2) 
DECLARE §zTotaiSaleOrPurchVaiue DEC!MAL(19,2) 
DECLARE @zTotalMeters INTEGER 

25 /* 



* Initialize any fields required. 



7 

30 SELECT @zNetbackPercent=0 

SELECT @zAmountToApply=0 
SELECT @zPercentToApply=1 
SELECT @zTotaiSaleOrPurchValue=0 

* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 

* classified. 
40 ****** 

*/ 

EXECUTE uspJGetWasplndicator @PKGx,@yWasplndicator OUTPUT 

SELECT @zDBCR=ISNULL((SELECT packagedbcr FROM package WHERE pkg=@PKGx),0) 

SELECT @zApplyNetback=ISNULL((SELECT applynetback from packagecosts WHERE pcid=@PClDx), Y) 

45 /* 



* Determine the correct product type in order 

* to get the correct contract netback 

* tier information. 
50 ********* 

*/ 

IF @zDBCR=0 

BEGIN 

IF (@yWaspindicator='Common') OR (@yWasplndicator='Dedicated') 
55 BEGIN 

EXECUTE usp_fGetWaspType @PKGx,@zProductNetbackType 

OUTPUT 

EXECUTE uspJGetNetbackPercentage 
@PKGx,@GasMonthx,@zProductNetbackType,@WhichPricex,@zNetbackPercent OUTPUT 
60 END 
END 

* Determine the percentage of whatever the 
6 5 * cost will calculate to here. 

* involved with this calculation. If it 

* is a deal level fixed cost then show 

* zeros IF there is no volume. 



70 7 
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IF (@MeterVolumex<>0) AND (@TotalVolumex<>0) 
BEGIN 

IF @Cosleveix='DEAL' 
BEGIN 

5 SELECT 

@zPercentToAppiy=CONVERT(DECIMAL(19 I 4),@MeterVolumex)/CONVERT(DECIMAL(19,4) ) @TotalVoiumex) 

END 

END 

IF (@MeterVoiumex = 0) AND (@CostLevelx='DEAL') 
10 BEGIN 

SELECT @zPercentToAppIy=0 

END 

r 

15 * If the cost is a FIXED AMOUNT and there 

* is no volume for the deaf then determine 

* the amount to apply based on the number 

* of meters involved in the deai. if 1 

* meter only then 1 00% of cost assessed to 
20 * that meter. If 2 meters then 50% assessed 

* to each one. etc.. 

7 

IF (@MeterVolumex=0) AND (@TotalVolurnex=0) 
25 BEGIN 

IF ©CostBasisx- Fixed Amount* 
BEGIN 

SELECT @zTotalMeters=ISNULL((SELECT countf) FROM Gaslnv 
WHERE PKG=@PKGx AND GasMonth=@GasMonthx),0) 
30 IF@zTotalMeters<>0 

BEGIN 

SELECT 

@zPercentToApply=(1/CONVERT(DECIMAL(19,4),@zTotalMeters)) 

SELECT 

35 @zAmountToApply=(@CostRateOrAmountx*@zPercentToAppiy) 

END 

END 

END 

r 

40 *** *** * ******** 

* Calculate based on fixed amount 

* here... Since this is a fixed amount 

* then the amount should be calculated 

* proportionately based on the total 
45 * volume percentage to the deal. 

7 

IF @CostBasisx- Fixed Amount" 
BEGIN 

50 IF (@CostRateOrAmountx<>0) AND (@zPercentToAppiy<>0) 

BEGIN 

SELECT 

@zAmountToApp!y=(@Cos^ateOrAmountx*@zPercentToAppiy) 

END 

55 END 

r 



* Calculate based on a rate applied 

* against MMBTU's here... Regardless 
60 * of whether or not this is a 'DEAL' 

* level or 'METER' level charge the 

* cost should be based on meter 

* volume. 

65 V 

IF (@MeterVolumex<>0) 
BEGIN 

IF @CostBasisx='Rate Applied to MMBTUs' 
BEGIN 

70 IF (@CostRateOrAmountx<>0) 
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BEGIN 

SELECT 

@zAmountToAppiy=({CONVERT(DEC!MAL(19 l 4) ) @MeterVolumex)*@CostRateOrAmountx)) 

END 

END 

END 

r 



* Calculate based on the total dollar amount 
1 0 * previously calculated here... Since 

* this particular cost is calculating on 

* just the amount for the associated 

* meter (ie.. sum of engine based on 
*TID) then the 'PercentToApply' is 

15 * not applicable. 

V 

IF (@MeterVolumex<>0) AND (@TotalVolumex<>0) 
BEGIN 

20 IF @CostBasisx='Rate Applied to Value' 

BEGIN 

IF @WhichPricex=0 
BEGIN 

SELECT 

25 @zTotalSaleOrPurchValue=ISNULL((SELECT SUM(amount) FROM engine WHERE tid=@tidx AND <stid=8 OR 

stid=9)),0) 

END 

IF @WhichPricex=1 
BEGIN 

30 SELECT 

@zTotalSaleOrPurchValue=ISNULL((SELECT SUM(amountact) FROM engine WHERE tid=@tidx AND (stid=8 OR 
stid=9)) t 0) 

END 

if(@CostRateOrAmountx<>0) AND (@zTotalSaieOrPurchVa!ue<>0) 
35 BEGIN 

SELECT 

@zAmountToApply=(@zTotaiSaleOrPurchValue*@CostRateOrAmountx) 

END 

END 

40 END 

r 



* Finally, post the cost amount to the 

* Engine table. If the engine table for 
45 * this transaction does not yet exist then 

* insert it, otherwise just update it... 

* Make sure that actual calculations and 

* nomination calculations are done within 
50 * their respective 'buckets'. 



7 

r 



55 * First appiy the netback if it 

* is there AND if the appiy 
•netback flag has been set 

* on the cost item. 



60 7 

IF ©zApplyNetback = Y 
BEGIN 

IF @zNetbackPercent<>0 
BEGIN 

65 * SELECT 

@zAmountToApply= : ROUND({@zAmountToApply*@zNetbackPercent) ) 2) 

END 

END 

I* 

70 " """ ****** 
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* Apply and post the amount 
* hera " _____ 

*/ 

5 IF @WhichPricex=0 

BEGIN 

IF (SELECT countO FROM Engine WHERE TID=@TIDx AND STID=@STIDx AND 
Effective=@GasMonthx AND VolLevel=0)=0 

BEGIN 

1 0 INSERT 

INTO 

Engine 

(TID.STID.Effectove.Vol^ 
1 5 meAct,AmountAct,EM_ETID) 

VALUES 

(@TIDx l @STiDx f @GasMonthx,0,@PKGx l 1 l 0,ROUND(@zAmountToApply I 2) f 0 f 0 ( 0 ( 0,@PCIDx) 
END 

20 ELSE 

BEGIN 

UPDATE 

engine 
SET 

25 

Amount=Amount+ROUND(@zAmountToApply 1 2) 

WHERE 

TID=@TIDx AND 
STID=@STIDxAND 

30 Effective=@GasMonthx AND 

Vo!Level=0 

END 

END 

IF @WhichPricex=1 
35 BEGIN 

IF (SELECT count(*) FROM Engine WHERE TID=@TiDx AND STID=@STIDx AND 
Effective=@GasMonthx AND VoiLevel=0)=0 

BEGIN 

INSERT 

40 INTO 

Engine 

(TfD.STID.Effective.VolLevel.VolGrou^ 
meAct,AmountAct > EM_ETlD) 
45 VALUES 

(@T!Dx,@STIDx,@GasMonthxA<^ 
END 

ELSE 

50 BEGIN 

UPDATE 

engine 
SET 

55 AmountAct=AmountAct^OUND(@zAmountToApply,2) 

WHERE 

TID=@T!Dx AND 
STID=@STIDxAND 
Effective=@GasMonthx AND 
60 VolLevel=0 

END 

END 

END 

65 



70 GO 
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SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 



SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
5 GO 

CREATE PROCEDURE usp_PSPriceCostAll( 

@GasMonthx DATETIME, 
©WhichPhcex INTEGER, 

10 @EntityCIDxVARCHAR(12), 

@DBCRx INTEGER, 
©IncludelnWaspx VARCHAR(tO) 
) 

AS 

15 BEGIN 

Name: usp.PSPriceCostAS! 

20 Descnption: Loop thruough all other costs associated to deals within a given month 

then apply the cost to the dean (posting engine records reflecting the cost amounts), 
or sale) and invoke the price procedures. 



25 



35 



45 



Inputs: 



GasMonthx - Gas Month to price), 
WhichPricex - 0=Nominations, ^Actualizations 
Entity C I Dx - owning entiry company identifier 
DBCRx - 0=Purchases, 1=SaIes (deals) 
30 IncludeinWaspx = " for all or specific pool (ie. 'Common', etc.). 



History: 

10/20/99 JAMIE Initial creation, 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 



05/24/2000 JAMIE Modified to make sure that the calculation was within a specific 
40 entity. 



10/03/2000 JAMIE Modified to accept two additional parameters to dictate which 
pool and whether or not purchases or sales were to be calculated upon... 



* Declare all variables and cursors 
50 * that are needed by this process. 



*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE @zTotalVolume DEC1MAL(19,2) 
55 DECLARE ©zMeterVoiume DECIMAL(19,2) 

DECLARE ©zVolumeStatus INTEGER 
DECLARE ©zPriceStatus INTEGER 
DECLARE ©zincludelnWasp VARCHAR(10) 

60 DECLARE @yPCID INTEGER 

DECLARE @yPKG INTEGER 

DECLARE @ySTID INTEGER 

DECLARE ©yCoslevel VARCHAR(12) 

DECLARE ©yCostMID INTEGER 
65 DECLARE @yCostBasis VARCHAR(40) " 

DECLARE ©yCostRateOrAmount DECIMAL(19,4) 

DECLARE @wTID INTEGER 
DECLARE @wNom DECIMAL(19,2) 
70 DECLARE ©wPipelineActuals DECIMAL(19,2) 
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DECLARE @wGaslnv_MID INTEGER 

DECLARE @eETID INTEGER 
DECLARE @eVolumeDEClMAL(19,2) 
5 DECLARE ©ePriceOrRateNom DECIMAL(19,6) 

DECLARE @eVolumeAct DECIMAL(19,2) 
DECLARE @ePriceOrRateActDECIMAL(19,6) 
DECLARE @evolumestatus INTEGER 
DECLARE ©epricestatus INTEGER 
10 DECLARE @ePKG INTEGER 

DECLARE PackageCostsCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PackageCosts.PCID, 
1 5 PackageCosts.PKG, 

PackageCosts.STID, 

PackageCosts.CostLevel, 

PackageCosts.CostMID, 

PackageCosts.CostBasis, 
20 PackageCosts.CostRateOrAmount 

FROM 

PackageCosts 

WHERE 

PackageCosts.PKG=ANY(SELECT PKG FROM Package* WHERE 
25 PackageGasMonth=@GasMonthx AND 

K.KID=Package.KID AND 

K.EntityCID=@EntityClDx AND Package.PackageDBCR=@DBCRx) 
ORDER BY 

PackageCosts.PKG, 

30 PackageCosts.STID 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

engine.etid, 

35 engine, volume, 

engine, priceorratenom, 

engine.volumeact, 

engine.pnceorrateact, 

engine.volumestatus, 
40 engine.pricestatus, 

package.pkg 

FROM 

engine, 
gasinv, 

45 package, 

k 

WHERE 

package.pkg=gasinv,pkg AND 
k.kid=package.kid AND 
50 k.entitycid=@entitycidx AND 

gasinv.gasmonth=@GasMonthx AND 
engine.tid=gasinv.tid AND 
gasinv.pricetype=1 AND 
gasinv.dbcF@DBCRx 

55 r 



* Loop through each other package cost 

* involved with this calculation. 



60 7 . 

SELECT @zMessage = 'PSPriceCostAII Running To Calculate Other Costs for all Deals' 
EXECUTE uspjvlessage @zMessage 
OPEN PackageCostsCursor 
FETCH NEXT FROM PackageCostsCursor INTO 
65 @yPCID f @yPKG,@yST!D f @yCoslevel,@yCostMID,@yCostBasis t @yCostRateOrAmount 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

r 

70 
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VARCHAR(IO)) 



* Sum the appropriate volumes for this 

* deai depending on whether nominations are 

* being calculated OR pipeline actuals are 

* begin calculated. 

7 

SELECT @zMessage = 'PSPriceCostAll Calculating Costs for Deal../ + CAST(@yPKG AS 



EXECUTE usp_Message @zMessage 
1 0 EXECUTE uspJGetWaspindicator @yPKG ( @zlncludelnWasp OUTPUT 

IF (@lncludelnWaspx= ! ') OR (@includeinWaspx=@z!ncludelnWasp) 
BEGIN 

IF @WhichPncex=0 
BEGIN 

1 5 SELECT @zTotalVolume=iSNULL((SELECT 

SUM(Nom) FROM Gasinv WHERE Gaslnv.PKG=@yPKG AND Gaslnv.PriceType=1),0) 

END 

IF @WhichPricex=1 
BEGIN 

20 SELECT @zTotalVoiume=ISNULL((SELECT 

SUM(PipelineActuals) FROM Gasinv WHERE Gaslnv.PKG=@yPKG AND Gasinv.PriceType=1),0) 

END 

L ianuiuaunuuuumiiiuim . 

25 * Open a cursor on ail meters associated 

* with this deal. 



7 

DECLARE GasinvCursor CURSOR LOCAL STATIC 

30 FORWARD_ONLY FOR 

SELECT 

Gasinv.TiD, 

Gaslnv.Nom, 

Gaslnv.PipelineActuals, 

35 Gasinv.Gaslnv_MID 

FROM 

Gasinv 

WHERE 

Gasinv.PKG=@yPKG AND 

40 Gaslnv.PriceType=1 

OPEN GasinvCursor 
FETCH NEXT FROM GasinvCursor INTO 
@wTID,@wNom 1 @wPipelineActuals,@wGaslnv_lv1ID 

WHILE @@FETCH STATUS = 0 
45 BEGIN 

/* u^u mxi-un-u-i 

* Depending on which pricing routine is 

* run, set the appropriate meter volume 
50 * field. 

7 

IF @WhichPricex=0 

BEGIN 

55 SELECT 



@zMeterVolume=@wNom 



IF @WhichPricex=1 



END 



BEGIN 

60 SELECT 



@zMeterVolume=@wPipelineActua!s 



END 



65 * * Invoke the detail cost routine in order 

* to calculate and post the cost totals 

* to the Engine Database. 

7 
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IF (@yCostLevel='DEAL') OR (@yCostLevel-METER' 

AND @yCostMID=@wGasinv.MlD) 

BEGIN 

EXECUTE usp_PSPriceCost 

5 @GasMonthx f @WhichPricex 1 @yPKG t @ySTID I @yPCID 1 

©wTID^yCosleveLQyCosSasis.QyCostRateOrAmount, 

@zTotafVolume,@zMeterVoiurne 
10 END 

FETCH NEXT FROM GaslnvCursor INTO 

@wTID,@wNom,@wPipelineActua(s f @wGaslnv_MID 

END 

CLOSE GaslnvCursor 

1 5 DEALLOCATE GaslnvCursor 

END 

COMMIT WORK 

FETCH NEXT FROM PackageCostsCursor INTO 
©yPCID^yPKG^ySTID^yCoslevei.QyCostMiD.tgyCostBasis^yCostRateOrAmount 
20 END 

CLOSE PackageCostsCursor 
DEALLOCATE PackageCostsCursor 



25 * Loop through and set the status flags 

* on the engine record IF the price or 

* volumes or amounts are different 

* between noms and actuals. Make 

* sure the logic exists to only calculate 
30 * those deals {purchases or sales) 

* within the correct WASP pool. 

*/ 

IF @WhichPricex=1 
35 BEGIN 

SELECT ©zMessage = 'PSPriceCostAil Running To Set Price & Volume Variance Status 

indicators...' 

EXECUTE usp_Message @zMessage 
OPEN EngineCursor 
40 FETCH NEXT FROM EngineCursor INTO 

@eETID,@eVolume,@ePriceOrRateNom,@eVoium 

WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE uspJGetWasplndicator @ePKG,@zlncludeinWasp 

45 OUTPUT 

IF (@lncludelnWaspx=") OR (@IncludelnWaspx=@zlnciude!nWasp) 
BEGIN 
/* 



50 * Check prices and volumes here. 



*/ 

SELECT @zVolumeStatus=0 
SELECT @zPriceStatus=0 
55 IF @eVolume<>@eVolumeAct 

BEGIN 

SELECT @zVolumeStatus=1 
END 

IF @ePriceOrRateNom<>@ePriceOrRateAct 
60 BEGIN 

SELECT @zPriceStatus=1 
END 

IF (@zVoiumeStatus<>@eVolumeStatus) OR 

(@zPriceStatus<>@ePriceStatus) 
65 * BEGIN 

UPDATE 

engine 
SET 



70 volumestatus=@zVolumeStatus, 
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pricestatus=@zP riceS tatus 



WHERE 



5 ETID=@eETID 

END 

END 

FETCH NEXT FROM EngineCursor INTO 

@eETID t @eVolume,@ePriceOrRateNom ) @e^ 
10 END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

END 

END 

15 



20 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 

GO 

25 SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceCreateActuaiEntries( 

©GasMonthx DATETIME 

) 

AS 

BEGIN 

SETNOCOUNT ON 

r 



30 



35 



50 



55 



Name: usp_PSPriceCreateActualEntries 



Description: This routine will clear out any existing links and pricing enties 
that may have already been setup for pipeline actuals, it will then copy the 
40 nomination pricing and linking entries for pipeline actuals (within the given 

month). This process should only get invoked with the status of a given month 
within the gas control system goes from 'Sales' to 'invoiced' at that point in time 
the accounting group will be responsible for any further modifications. 

45 Inputs: 

GasMonthx (Gas Month to calculate), 

History: 

08/04/1999 JAMIE Original creation 



08/25/2000 JAMIE Modified to remove the PackageLinks delete and build 
logic (replaced by new routing structures). 



60 * Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE @zMessage VARCHAR(254) 
65 DECLARE @yPKG INTEGER 

DECLARE @yET!D INTEGER 
DECLARE @yEM_ET!D INTEGER 

r 

70 * Clear out the link and price entry 
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* structures for the specified month 

* here... These entries will be 

* recreated (from Nom side) in the 
*next step. 

5 

* Database triggers take care of the 

* individual pricing components in 
*the Engine_MasterPrice table. 

10 7 

SELECT @zMessage = 'PSPriceCreateActuaiEntries, removing Engine JrtasterPrice...' 
EXECUTE usp Jvlessage @zMessage 

DECLARE EngineJvlasterDeleteCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

1 5 DISTINCT 

(EngineJvlaster.ETID) 
FROM 

Engine_Master, 
Gasinv, 

20 Engine.MasterPrice 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gasinv.PriceType=1 AND 
Gasinv.PKG=Engine_Master.P!D AND 
25 Engine_MasterPrice.ETiD=Engine_Master.ETID AND 

Engine_MasterPrice.NomOrActuai=1 

OPEN EngineJvlasterDeieteCursor 

FETCH NEXT FROM EngineJvlasterDeieteCursor INTO @yEM_ETID 
WHILE @@FETCH_STATUS = 0 
30 BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceCreateActuaiEntries, actual EngineJ/lasterPrice removed.. 

EXECUTE usp_Message @zMessage 

DELETE 

35 FROM 

Engine_MasterPrice 

WHERE 

ETID=@yEM_ETiD AND 
NomOrActuaMI 

40 COMMIT WORK 

FETCH NEXT FROM Engine_MasterDeleteCursor INTO @yEM_ET!D 

END 

CLOSE Engine_MasterDeleteCursor 
DEALLOCATE Engine_MasterDeieteCursor 

45 r _ m _ 1 _ ^ llililliumuiillillll 

* Now bulk populate the engine 

* pricing information. Taking nom 

* pncing entries and creating actual 
50 * pricing entries. 



*/ 

SELECT @zMessage = 'PSPriceCreateActuaiEntries, running Gasinv cursor...' 
EXECUTE usp Message ©zMessage 
55 DECLARE GasTnvCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 

SELECT 

DISTINCT 

(GasinvPKG) 

FROM 

60 Gasinv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 

OPEN GaslnvCursor 
65 FETCH NEXT FROM GaslnvCursor INTO @yPKG 

WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceCreateActuaiEntries, obtaining price entries for Gasinv 

70 Package...' 
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EXECUTE usp Message @zMessage 

DECLARE Engine.MasterCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

DISTINCT 

5 (ET1D) 

FROM 

Engine.Master 

WHERE 

PID=@yPKG 

1 0 OPEN Engine.MasterCursor 

FETCH NEXT FROM Engine.MasterCursor INTO @yET!D 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT ©zMessage = 'PSPriceCreateActualEntries, inserting actual 



1 5 prices 



20 



EXECUTE usp.Message ©zMessage 
INSERT 

INTO 

Engtne.MasterPrice 



(ETIDPriceTag.OperandVariabiePriceVariable.CreateUser, 



CreateDate,LastUpdateUser t LastUpdateDate t SequenceNo,NomOrActuat) 

(SELECT 

25 ETIDPriceTag.OperandVariablePriceVariable.CreateUsenCreateDate.LastUpdateUser.LastUpdateDate, 

SequenceNo,1 FROM Engine.MasterPrice 

WHERE ETID=@yETID AND NomOrActuaI=0) 

FETCH NEXT FROM Engine.MasterCursor INTO ©yETID 

END 

30 CLOSE Engine.MasterCursor 

DEALLOCATE Engine.MasterCursor 
COMMIT WORK 

FETCH NEXT FROM GasinvCursor INTO @yPKG 

END 

35 CLOSE GasinvCursor 

DEALLOCATE GasinvCursor 
END 

40 



GO 

SET QUOTED.! DENT! FIER OFF SET ANSi.NULLS ON 
45 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

50 CREATE PROCEDURE usp_PSPriceMarkActualAdjustments( 

@GasMonthx DATETIME 
) 

AS 

BEGIN 

55 SETNOCOUNTON 

r 

Name: usp„PSPriceMarkActuaIAdjustments 

60 Description; This routine will go through each inventory (and engine 

records) in order to identify and mark those records that had some sort of 
an actualization adjustment (pnce or volume). The invoice number for saies 
will get reset to a 'A' (last character) if it currently exists as an 'N\ 

65 Inputs: 

GasMonthx (Gas Month to calculate), 

History: 



70 
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12/15/1999 JAMIE Original creation 



7 

r 

* Declare all variables and cursors 

* that are needed by this process. 



10 7 

DECLARE ©zMessage VARCHAR(254) 

DECLARE ©yAcctgidentifier VARCHAR{12) 
DECLARE ©zAcctgidentifier VARCHAR(12) 
1 5 DECLARE ©zLastChar VARCHAR(1) 

DECLARE ©zlnvoiceLength INTEGER 

DECLARE @qTID INTEGER 
20 r 



* First set the modified by actuals flag 

* across the board for all gasinventory 

* items that have a price type of '1' 
25 * (this includes 'Other Costs'. 

* The defaults is set to 'N* then go 

* and override with changes, 

30 7 

SELECT ©zMessage = '**** STARTED PSPriceMarkActualAdjustments' 
EXECUTE usp_Message ©zMessage 

DECLARE Gaslnvl Cursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

35 TID 

FROM 

Gasinv 

WHERE 

GasMonth=@GasMonthx AND 
40 PriceType = 1 

OPEN GasinvlCursor 

FETCH NEXT FROM GasinvlCursor INTO @qTID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

45 BEGIN TRANSACTION 

UPDATE 

Gasinv 
SET 

ModifiedByActuals-N' 

50 WHERE 

TID = @qTID 

COMMIT WORK 

FETCH NEXT FROM GasinvlCursor INTO @qTID 

END 

55 CLOSE Gaslnvl Cursor 

DEALLOCATE GasinvlCursor 
/* 

* At this point all of the gas inventory 
60 * items that have had some sort of 

* modification done on them between 

* noms and actuals will have been 

* updated to a T. Now go and reset 

* the accounting identifier for each of 
65 * these records. 

7 

SELECT @zMessage = 'PSPriceMarkActualAdjustments, make any modifiications' 
EXECUTE uspjvlessage ©zMessage 
70 DECLARE Gaslnv2Cursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 



-79« 



SELECT 

DISTINCT 

(G.Acctgidentifier) 

FROM 

5 Gaslnv AS G, 

Engine AS E 

WHERE 

GasMonth=@GasMonthx AND 
G.PriceType=1 AND 
10 E.TID=G.TID AND 

(E.PriceStatus<>0 OR E.VolumeStatus<>0) 

OPEN Gaslnv2Cursor 

FETCH NEXT FROM Gaslnv2Cursor INTO @yAcctgldentifier 
WHILE @@FETCH_STATUS = 0 
15 BEG!N 

BEGIN TRANSACTION 
/* 

* Make sure that it is a vaiid 6 digit 
20 * Invoice number AND the sixth digit 

* contains an 'N* (fornoms). 

* Update all if this criteria has been 
*met 

25 */ 

SELECT @zlnvoiceLength=LEN(RTR!M(LTRIM(@yAcctgidentifier))) 
IF @zinvoiceLength=6 
BEGIN 

SELECT @zAcctgidentifier=RTRIM(LTRIM(@yAcctg!dentifier)) 
30 SELECT @zLastChar=R!GHT(@zAcctgfdentifier,l) 

IF ©zLastChap'N' 
BEGIN 

SELECT @zAcctgldentifieRLEFT(@zAcctgident!fier ( 5)+'A' 
UPDATE 

35 Gaslnv 

SET 

ModifiedByActuais=T, 

Acctg ldentifier=@zAcctg Identifier 
40 WHERE 

GasMonth=@GasMonthx AND 

Acctg ldentifier=@yAcctg Identifier 
45 END 

END 

COMMIT WORK 

FETCH NEXT FROM Gaslnv2Cursor INTO @yAcctgldentifier 

END 

50 CLOSE Gaslnv2Cursor 

DEALLOCATE Gasinv2Cursor 

SELECT @zMessage = ***** FINISHED PSPriceMarkActualAdjustments 1 

EXECUTE usp.Message @zMessage 

END 

55 



60 GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
65 GO 

CREATE PROCEDURE usp_PSPricePopuiateEngine( 

@P!Dx INTEGER, 
©WhichPricex INTEGER, 

70 ©GasMonthx DATETIME, 
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@DBCRx INTEGER 

) 

AS 

BEGIN 
5 r 



Name: usp_PSPricePopuiateEngine 

Description: Make sure that the price entries are populated on the engine 
1 0 master for the respective Engine Jvlaster pricing records. Only those 

engine records with pricetype=1 (STlD=8 or STID=9) will be manipulated by 
this process. 

Inputs: 

1 5 PIDx (unique Package ID) 

WhichPricex(0=Nomination, 1=Actual) 

GasMonthx (gas month calculation applicable toward) 

DBCRx (0=Purchase,1=Sale) 

20 History: 

05/14/99 JAMIE Original Creation 

09/27/99 JAMIE Modify this process to check for index baskets AND IF the 
25 index basket is comprised of daily indices then populate the entire month 

with the basket information. 

01/27/00 JAMIE Modified to delete engine records while in the actuals phase 
if the nom information is zero (al! nom information, price, volume, amount, etc.). 

30 



7 

r 



35 * Declare all variables and cursors 
* that are needed by this process. 



7 

DECLARE ©dPriceEntryType VARCHAR(12) 

40 DECLARE ©dPriceVariabie VARCH AR(1 5) 

DECLARE ©tmpDailylndexCount INTEGER 
DECLARE ©tmpUseEffective DATETIME 
DECLARE QtmpEndDate DATETIME 
DECLARE ©tmpPrevEffective DATETIME 

45 DECLARE ©tmpNextEffectiveDate DATETIME 

DECLARE ©tmpNumberDays DATETIME 
DECLARE ©tmpVolumelnPeriod DECIMAL(19,2) 
DECLARE ©tmpDateToUse DATETIME 
DECLARE ©tmpEndEffectiveDate DATETIME 

50 DECLARE @yETID INTEGER 

DECLARE ©yEffective DATETIME 
DECLARE @ySTID INTEGER 
DECLARE ©yVolLevel INTEGER 
DECLARE ©yVolGroup INTEGER 

55 DECLARE ©yVarFixed INTEGER 

DECLARE ©yMMBtuMCF INTEGER 
DECLARE ©yTierThreshold INTEGER 

DECLARE @yT!D INTEGER 

60 

r 



* First, Go out and delete entries off the 

* engine database related to this particular 
65 * package. If the pipeline actuals are 

* being processed then just go and 

* initialize any existing Engine record 

* 'Actual' buckets to zero (leave the 

* preexisting engine records intact). 

70 
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70 



* Modified on 01/27/2000 to delete engine 

* records off actuals IF there are no nom 

* numbers stored on the records... 



7 



IF @WhichPricex=0 
BEGIN 



DELETE 



FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) 
END 

IF@WhichPricex=1 
BEGIN 

DELETE 

FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) AND 



Engine 

TID=ANY(SELECT TiD FROM Gasfnv WHERE PKG=@P!Dx AND 



UPDATE 



Engine 
SET 



WHERE 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 

PriceOrRateNom=0 AND 
Volume=0 AND 
Amount=0 



PriceOrRateAct=0, 

Vo!umeAct=0, 

AmountAct=0 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 



PriceType=1 AND DBCR=@DBCRx) 
END 

r U JLAJLJ L1AJL1IJLA JLJLJ L1JLAiAA JLJLJLJLA1JL 

* First do a loop on all of the 

* Engine_Master records in order to 

* remove any that don't have any price 

* records associated to it... (Orphans).. 

* A commit point is placed here in order to 

* insure that subsequent cursor activity 

* only picks up valid price records. 

7 

DECLARE EngineJvlasterCursorl CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

em.ETID, 

em.Effective, 

em.STID, 

em.VolLevel, 

em.VolGroup, 

em.VarFixed, 

em.MMBtuMCF, 

em.TierThreshold 

FROM 

Engine_MasterAS em 

WHERE 

(em.PID=@PIDx) 

ORDER BY 

em.Effective 

OPEN EngineJvlasterCursorl 

FETCH NEXT FROM Engine_MasterCursor1 INTO 

©yETID^yEffective^ySTID.QyVolLevel^yVoIGroup.gyVarFixed^yMMBtuMCF.gyTierThreshold 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF ISNULL((SELECT countfl FROM Engme.MasterPrice WHERE ET!D=@yET!D),0) < 1 
BEGIN 

DELETE 
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FROM 

Engine JVIaster 

WHERE 

ETID=@yETlD 

5 END 

FETCH NEXT FROM Engine JvlasterCursorl INTO 
©yETID.QyEffective.QySTiD^yVolLevei^yVoiGroup.QyVarFixed.gyMMBtuMCF^yTierThreshold 
END 

CLOSE Engine_MasterCursor1 
1 0 DEALLOCATE Engine JvlasterCursort 

* Now loop through the existing 

* Engine_Master records. These are the 
15 * actual price entries that were input 

* by the user. There can be a record 

* PER DAY or a single record for the 

* entire month. Only 1 entry PER 

* Effective date will be stored within 
20 *the Engine table. That is why the 

* tmpPrevEffective is used within the 

* cursor process. 

*/ 

25 SELECT @tmpPrevEffective='01 -01-1 900' 

DECLARE Engine_MasterCursor2 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

em.ETID, 
em. Effective, 
30 em.STID, 

em.VolLevel, 
em.VolGroup, 
em.VarFixed, 
em.MMBtuMCF, 

35 em.TierThreshold 

FROM 

Engine_MasterAS em 

WHERE 

(em.PID=@PIDx) 

40 ORDER BY 

em.Effective 

OPEN Engine J/lasterCursor2 
FETCH NEXT FROM Engine_MasterCursor2 INTO 
@yETID,@yEfective,@yST!D,@yW^ 
45 WHILE @@FETCH_STATUS = 0 

BEGIN 

* Check for daily index entries... If they 
50 * are found then go and calculate the 

* end date for which to insert engine 

* records (automating a daily price 

* entry to the engine for each day of 

* the month up thru the end of the month 
55 * or to the next effective date. 

* This will also check for index basket 

* monthly entries. If the index basket 

* contains daily indices then populate 
60 * each day of the month just as tf it 

* was a daily index. 

*/ 

IF @yEffective<>@tmpPrevEffective 
65 BEGIN 

EXECUTE uspJLastDay @GasMonthx,@tmpEndDate OUTPUT 

SELECT @tmpDailylndexCount=0 

DECLARE DailyCheckCursor CURSOR LOCAL STATIC 

FORWARD_ONLY FOR 
70 SELECT 
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p.PriceEntryType, 
emp.PriceVanable 
FROM 



WHERE 



EngmeJvlasterPrice AS emp, 
PriceComponents AS p 

(emp.ETID=@yETID) AND 



(emp.NomOrActuai=@WhichPricex) AND 
1 0 (p.PriceTag=emp.PriceTag) AND 



p.PriceEntryType='BasketlDX') 



(pPriceEntryType='Daiiy IDX 1 OR 



OPEN DailyCheckCursor 
FETCH NEXT FROM DailyCheckCursor INTO @dPriceEntryType,@dPnceVariable 
1 5 WHILE @@FETCH_STATUS = 0 

BEGIN 

IF (@dPriceEntryType='Daily IDX) AND 

(@tmpDaifyindexCount=0) 

BEGIN 

20 SELECT @tmpDailylndexCount=1 

END 

IF (@dPriceEntryType='Basket IDX') AND 

(@tmpDailylndexCount=0) 

BEGIN 

25 SELECT ©tmpDailyindexCount = 

ISNULL((SELECT count(*) FROM IndexBasketLinkJndexRef 

WHERE (IndexBasketLink.indexBasketlD=@dPriceVariable) AND 

30 (!ndexRef.lndex!D=lndexBasketLink.lndexlD) AND 

(!ndexRef.Dailylndex=1)) ) 0) 
END 

FETCH NEXT FROM DailyCheckCursor INTO 

35 @dPriceEntryType,@dPriceVariable 

END 

CLOSE DailyCheckCursor 
DEALLOCATE DailyCheckCursor 
IF @tmpDaiiylndexCount=0 
40 BEGIN 

SELECT @tmpEndEffectiveDate=@yEffective 

END 

ELSE 

BEGIN 

45 SELECT 

@tmpEndEffectiveDate=ISNULL((SELECT DATEADD(dayr1,MIN(em.effective)) FROM Engine J/!aster AS em 

WHERE (em.PID=@PIDx) AND (em.Effective>@yEffective)),@tmpEndDate) 

END 

50 ^ M _ mu 

* Now insert the new Engine records. 

* These inserts will be based on a loop 

* between the effective date from the 
55 * Engine_Master record and the temp 

* field tmpEndEffectiveDate. This will 

* provide for the 'proliferation' of 

* daily index price entries (to the 

* engine). Only insert engine records 
60 * if there is some sort of volume 

* Norn or PipelineActual on associated 

* with a specific day. 
* 

* If pipeline actuals then inserts do 
65 * not automatically happen . A check 

* is first made to see if the engine 

* record is already there... 



7 

70 SELECT @tmpUseEffective=@yEffective 
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70 



LOCAL STATIC FORWARD.ONLY FOR 



WHILE @tmpUseEffective <= QtmpEndEffectiveDate 
BEGIN 

DECLARE GaslnventoryCursor CURSOR 



SELECT 



DISTINCT 

g.TID 

FROM 



ASg, 
ASgd 

(gd.TID=g.TID) AND 
(g.P!D=@PIDx) AND 
(g,GasMonth=@GasMonthx) AND 
(g.PriceType=1)AND 
(g.DBCR=@DBCRx) AND 
(gd.GasDay>=@tmpUseEffective) AND 
((gd.NomoO) or(gd.PipelineActuais<>0) 



Gaslnv 
GaslnvD 



WHERE 



OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF (SELECT countO FROM 



Engine WHERE T!D=@yTID AND STID=@ySTID AND 

Effective=@tmpUseEffective AND VolLevel-0)=0 



BEGIN 



INSERT 



INTO 



VALUES 



Engine 

(TID.STID.Effective.VoiLevel.VoiGroup.MMBtuMCF.EM.ETID) 



(©yTID^ySTiD.QtmpUseEffective.O^yVolGroup.tgyMMBtuMCF^yETID) 

END 

ELSE 

BEGIN 



UPDATE 



Engine 
SET 

WHERE 



EM_ETID=@yETID 

TID=@yTID AND 
STID=@ySTID AND 
Effective=@tmpUseEffective AND 
VolLevei=0 



END 
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FETCH NEXT FROM 

Gaslnventory Cursor INTO @yTlD 

END 

CLOSE GaslnventoryCursor 

5 DEALLOCATE GaslnventoryCursor 

SELECT 

@tmpUseEffective=DATEADD(day,1,@tmpUseEffective) 

END 

END 

1 0 SELECT @tmpPrevEffective=@yEffective 

FETCH NEXT FROM Engine_MasterCursor2 INTO 
©yETID^yEffective.QySTID.QyVolLevel^yVoiGroup.QyVarFixed.gyMMBtuMCF.tgyTierThreshoid 
END 

CLOSE Engine_MasterCursor2 
1 5 DEALLOCATE Engine JvlasterCursor2 

END 



20 



GO 

25 SET QUOTED JDENTIFIER OFF SET ANSI.NULLS ON 

GO 

SET QUOTED JDENTIFIER OFF SET ANSi.NULLS ON 
GO 

30 

CREATE PROCEDURE usp_PSPriceTransportAII( 



35 

AS 

BEGIN 

r 

40 ****************** 

Name: usp_PSPriceTransportAII 

Description: This is the main process for calculating the transport costs 
for all transport entries within the gas inventory database. These are 
45 identified in the gas inventory database as PriceType=3 purchase and sale 

entries (DBCR=0 oM). 

The recalculation of costs will only be allowed to occur when the gas month 
status has been set to the appropriate month 

50 

Inputs: 

GasMonthx - Gas Month to calculate 
WhichPricex - 0=Nominations, ^Actualizations 
55 PKGx - either 0 for ail or a specific package (deal) number 

EntityCIDx - owning company id 

History: 

60 06/30/1 999 JAMIE Orignal Creation. 

03/22/2000 JAMIE Modified to move the Divie process to the mam module. In addition, 
modified to handle the new routing table (LegDetaii) and buiid routing records 
based on the routing rules within this table. 

65 

05/24/2000 JAMIE Modified to be aware of entity and product types and services. In 
addition, modifications made to calculate based on new routing structure... 



*/ 

70 /* 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 
@EntityCIDxVARCHAR(12) 
) 
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* Declare ail variables and cursors 

* that are needed by this process. 



5 */ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zPackage INTEGER 
DECLARE ©zRecTID INTEGER 
DECLARE ©zDelTID INTEGER 
1 0 DECLARE ©zVolume DECIMAL(19,2) 

DECLARE ©zAmount DEC!MAL(19,2) 
DECLARE @zRate DECIMAL(19,8) 
DECLARE ©zLastDay DATETIME 

1 5 DECLARE @yTID INTEGER 

DECLARE ©yGasDay DATETIME 

DECLARE @yDelM!D INTEGER 

DECLARE ©yRecMID INTEGER 
20 DECLARE @yLID INTEGER 

DECLARE ©yReceipt DECIMAL(19,2) 

DECLARE ©yFuelOrOther DECIMAL(19,2) 

DECLARE ©yDelivered DECIMAL(19,2) 

DECLARE ©yTransportationRate DECIMAL(19,8) 
25 DECLARE ©yGatheringRate DECIMAL(19,8) 

DECLARE ©yFuelPercent DECIMAL(19,8) 

DECLARE ©yPlantVoiReduction DECIMAL(19,8) 

DECLARE @yKID INTEGER 

DECLARE ©yRMeterPipe VARCHAR(12) 
30 DECLARE ©yRMeterMeter VARCHAR(14) 

DECLARE ©yDMeterPipe VARCHAR(12) 

DECLARE ©yDMetenMeter VARCHAR(14) 

DECLARE @yCID VARCHAR(12) 

DECLARE ©yKProductID INTEGER 
35 DECLARE @yKService!D INTEGER 

DECLARE ©yPurchasePKG INTEGER 

* Firstjntiaiize any existing volumes for 
40 * this month on the gas inventory table 

* to a zero. In addition, set the 

* appropriate volume amounts and price 

* amounts on the 'Engine' table to zeros. 

45 */ 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

SELECT ©zMessage = 'PSPriceTranportAII, initializing Gas Inventory and Engine Information.. 
EXECUTE usp_Message ©zMessage 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
50 SELECT 

Gasinv.TID 
FROM 

Gasinv, 
K 

Gaslnv.GasMonth=@GasMonthx AND 
Gasinv.PriceType=3 AND 
K.KID=Gaslnv.KID AND 
K.EntityCID=@EntityCIDx 

60 OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTID 
BEGIN TRANSACTION 
WHILE @@FETCH_STATUS = 0 
BEGIN 

65 IF @WhichPricex=0 

BEGIN 

UPDATE 

GasinvD 
SET 

70 Nom=0, 



55 WHERE 
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©zLastDay 



UPDATE 



WHERE 



Engine 
SET 



WHERE 



EstActt) 
TlD=@yTiDAND 

GasDay BETWEEN ©GasMonthx AND 



Volume=0, 
Amount=0, 
PriceOrRateNom=0 



END 

IF @WhichPricex=1 
BEGIN 



TID=@yTID 



UPDATE 



©zLastDay 



UPDATE 



GasinvD 
SET 

WHERE 



Engine 
SET 



WHERE 



PipelineActuals=0 
TID=@yTlD AND 

GasDay BETWEEN ©GasMonthx AND 



VolumeAcH), 
AmountAct=O t 
PriceOrRateAct=0 



END 



TID=@yTID 



END 



FETCH NEXT FROM GaslnvCursor INTO @yT!D 



SELECT ©zMessage = 'PSPriceTranportAII, Finished initializing Gas Inventory and Engine Information....' 

EXECUTE usp_Message @zMessage 

COMMIT WORK 

CLOSE GaslnvCursor 

DEALLOCATE GaslnvCursor 

/* 



* Now loop through each of leg detail 

* records for the month for this entity 

* and determine appropriate transportation 

* rates. 
* 

* Gas Inventory (PriceType=3) records will 

* be created {along with package if needed). 

* Engine records wiil also be created. 
*/ 

SELECT ©zMessage = 'PSPriceTranportAII, Analyzing Routing (legdetail) cursor.. 
EXECUTE usp_Message ©zMessage 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

LD.GasDay, 

LD.DelMID, 

LD.RecMID, 

LD.LID, 

LD.Receipt, 

LD.FuelOrOther, 

LD. Delivered, 

LD.TransportationRate, 

LD.GatheringRate, 

LD.FuelPercent, 

LD.PlantVolReduction, 

LD.PurchasePKG, 

RMeter.PipeField, 
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RMeter.Meter, 

DMeter.PipeFleid, 

DMeter.Meter, 

LegRef.KID 

FROM 



LegDetaii AS LD, 
LegRef, 

Meter AS RMeter, 
Meter AS DMeter 



10 WHERE 



LegRef.LID=LD.LID AND 
RMeter.MID=LD.RecM!D AND 
DMeter.MID=LD.DeiMID AND 

LD.PurchasePointTID IN (SELECT TID FROM Gasinv,Package,K WHERE 
1 5 Package.PKG=Gaslnv.PKG AND K.KiD = Package.KID AND 

Gasinv.GasMonth=@GasMonthx 

and Gaslnv.DBCR^O and Gastnv.PriceType=1 and K.EntityCID=@EntityCIDx) AND 

LD.GasMonth=@GasMonthx AND 
LD.GasDay>=@GasMonthx AND 
20 LD.GasDay<=@zLastDay AND 

LD,NomOrActuaIs=@WhichPricex AND 
LD.LIDoQ AND 

(LD.TransportationRateoO OR LD.GatheringRate<>0 OR LD.FueiPercent<>0 OR 

LD.PiantVolReductionoO) 
25 ORDER BY 

LegRef.UD 

OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO @yGasDay ) @yDelMID t @yRecMID,@yLiD p @yRecefpt 1 @yFue!OrOther ( 

30 @yDelivered,@yTransportationRate t @yGatheringRate,@yFuelPercent 1 @yPlantVolReducton,@yP^ 
KG, 

@yRMeterPipe,@yRMeterMeter f @yDMe{erPipe,@yDMeterMeter,@yKlD 
WHILE @@FETCH_STATUS = 0 
35 BEGIN 

BEGIN TRANSACTION 
/* 



* First check to see if a transportation 
40 * package has been setup for this 

* contract/company... if not then set 

* it up... A commit is immediately 

* performed here in order to 'preserve' 

* the package information (and its 
45 * associated ID). 

*/ 

SELECT @yKProductlD=KProductlD,@yKServiceiD=KServicelD FROM Package where 

PKG=@yPurchasePKG 
50 SELECT @yC!D=C!D FROM K WHERE KID = @yKID 

SELECT @zPackage=iSNULL((SELECT PKG FROM Package WHERE KID=@yKlD AND 
PackageGasMonth=@GasMonthx AND 

KProductlD=@yKProductlD AND 

KServicelD=@yKService!D) ( ") 
55 IF (@zPackage=") OR (@zPackage IS NULL) 

BEGIN 

SELECT @zPackage=(SELECT max(PKG) FROM package) + 1 
INSERT 

INTO 

60 Package 

(PKG^tartDate^ndDate.Description.Package.Create.KID.ClD.PackageGasMonth.PackageStatus.Package 

_CreateBy, 

65 LastUpdateBy.LastUpdateDate.KProductlD.KServicelD) 

VALUES 

(@zPackage,@GasMonthx,@zLastDay,'TRANSPORT 
DEAL\getdate{) 1 @yKID,@yCID,@GasMontto;Created\user_name() l 
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55 



65 



user.nameO.getdateO^yKProductfD.QyKServiceiD) 
END 

r 



* At this point we know that a package 

* has been created AND we have the 

* package identifier Now build the 

* Gaslnv records IF they do not already 
10 * exist for this package. By adding a 

* new inventory item the daily (GaslnvD) 

* records are automatically created for 
*each day of the month. 

15 */ 

SELECT @zRecTiD=iSNULL((SELECT TID FROM Gaslnv WHERE GasMonth=@GasMonthx 

AND 

PKG=@zPackage AND PriceType=3 AND 

KiD=@yK!D AND PipeField=@yRMeterPipe AND 
20 Meter=@yRMeterMeter AND PID=@yLID 

AND DBCR=0),0) 

IF @zRecTID=0 

BEGIN 

INSERT 

25 INTO 

Gasinv 

(GasMonth.CIDPipeField^eter.DBCR.KID.PiD.PKG.StatPriceType.Gaslnv.UT, 

30 Nom I EstAct t Gaslnv_UU ) Gas!nv_MID,PipelineActuals) 

VALUES 

(@GasMonthx ) @yCID p @yRMeterPipe t @yRMeterMeter,0 ( @yKID I @yL!D 1 @zPackageJ ) 3,getdate() l 

0,0,user_name() 1 @yRecMlD,0) 

35 SELECT @zRecTID=!SNULL((SELECTTID FROM Gasinv WHERE 

GasMonth=@GasMonthx AND 

PKG=@zPackage AND PriceType=3 AND K!D=@yKID AND PipeField=@yRMeterPipe AND 

40 Meter=@yRMeterMeter AND PlD=@yLID AND DBCR=0),0) 

END 

SELECT @zDelTID=ISNULL((SELECT TID FROM Gasinv WHERE GasMonth=@GasMonthx 
AND PKG=@zPackage AND 

45 PriceType=3 AND KID=@yKID 

AND PtpeFieId=@yDMeterPipe AND Meter=@yDMeterMeter AND 

PID=@yLlD ANDDBCR=1),0) 

IF@zDelTlD=0 

BEGIN 

50 INSERT 

INTO 

Gaslnv 



{GasMonth.CiDPipeField.Meter^BCR.KiD.PIDPKG.StatPriceType^asinv.UT, 

Nom,EstAct,Gasinv_UU ( Gaslnv MID.PipeiineActuais) 

VALUES 



(@GasMonthx ) @yCID,@yDMeterPipe,@yDMeterMeter I 1 .©yKID.QyLID.QzPackage, 1 ,3,getdate(), 
60 0,0,user„name() f (8yDelMID,0) 

SELECT @zDelTID=ISNULL((SELECT TID FROM Gasinv WHERE 
GasMonth=@GasMonthx AND PKG=@zPackage AND 



PriceType=3 AND KlD=@yKID AND PipeFieid=@yDMeterPipe AND Meter=@yDMeterMeter AND 

PID=@yUD AND DBCR=1),Q) 
END 

r 



70 * At this point the gas package and gas 
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* inventory items have been determined 

* (created if needed). Now go and post 

* the volume to the GasinvD table. 

5 */ 

IF @WhichPricex=0 
BEGIN 

UPDATE 

GasinvD 

10 SET 

WHERE 



15 UPDATE 

GasinvD 
SET 



35 



45 



nom=(nom+@yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



nom=(nom+@yDelivered) 

TlD=@zDe!TID AND 
GasDay=@yGasDay 



WHERE 

20 TlD=@zDe!TID AND 

END 

IF @WhichPricex=1 
BEGiN 

25 UPDATE 

GasinvD 
SET 



WHERE 

30 TID=@zRecTID AND 



UPDATE 

GasinvD 
SET 

PipelineActuals=(PipelineActuais+@yDelivered) 

WHERE 



PipelineActuals=(PipefineActuals^yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



40 END 



TiD=@zDelTID AND 
GasDay=@yGasDay 



* Any transport costs here??? 

* (engine transaction ID is 3) 



*/ 

IF @yTransportationRate<>0 
BEGIN 

SELECT @zRate=@yTransportationRate 
50 SELECT @zVo!ume=@yReceipt 

SELECT @zAmount=ROUND((@zRate*@zVoIume),2) 
IF ISNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID 
AND Effective=@GasMonthx AND STID=3),0) < 1 

BEGIN 

55 IF@WhichPricex=0 

BEGIN 
INSERT 

INTO 



m) 



60 Engine 

(TiD,Effective,STID,VoILeveWGro^ 

VALUES 
65 

(©zRecTID.OGasMonthx.S^.QzPackageJ.getdateO.user.nameO^zVoiume.QzAmount^zRate) 

END 

IF @WhichPricex=1 

BEGIN 

70 INSERT 
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INTO 

Engine 

5 (TID.Effetfve.STID.VolL^^ 
ateAct) 

VALUES 

(@zRecTID,@GasMonthx,3 ( 0,@^ 
10 END 

END 

ELSE 

BEGIN 

IF @WhichPricex=0 

1 5 BEGIN 

UPDATE 

Engine 
SET 

20 Voiume=(Volume^zVolume), 
Amount=(Amount+@zAmount), 

PnceOrRateNom=ROUND(((Amount-+@zAmount)/(Volume+@zVolume)),4) 
25 WHERE 

TID=@zRecTID AND 

Effective=@GasMonthx AND 

STiD=3 



30 



END 

IF @WhichPricex=1 
BEGIN 

35 UPDATE 



40 



45 



55 



Engine 
SET 



VoiumeAct=(VolumeAct+@zVolume), 
AmountAct=(AmountAct-^zAmount), 

PriceOrRateAc^ROUND(((AmountAct+@zAmount)/(VoiumeAct+@zVolume)) p 4) 



WHERE 



TID=@zRecTID AND 
Effective=@GasMonthx AND 
50 STID=3 



END 

END 



END 



* Any gathering costs here??? 

* (engine transaction ID is 4) 



*/ 

60 IF @yGatheringRate<>0 

BEGIN 

SELECT @zRate=@yGatheringRate 
SELECT @zVolume=@yReceipt 
SELECT @zAmount=ROUND((@zRate*@zVolume) ) 2) 
65 ^ IF ISNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID 

AND Effective=@GasMonthx AND STID=4),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 

70 INSERT 
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55 



60 



m) 



INTO 

Engine 

(TID.Effective.STID.VolLevel.Vo^ 

VALUES 



(@zRecTID,@GasMonthxA0,@zPackage,1^ 
10 END 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

15 

Engine 

(TID,Effective i STID,VoiLevel t VolGroup I MMBtuMCF,Engine_UT,Engin 

ateAct) 

20 VALUES 

(@2RecTID,@GasMonthx f 4 I 0 l @zPackage,1 l getdate() l user - name() l @zVolume l @zAmo^ 

END 

END 

25 ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 
UPDATE 

30 Engine 

SET 

Volume=(Volume+@zVolume) p 
35 Amount={Arnount-K§zArnount), 

PriceOrRateNom=ROUND(((Amount4@zAmount}/(Voiume-^zVoiume)),4) 

WHERE 

40 TID=@zRecTID AND 

Effective=@GasMonthx AND 
STlD-4 

45 END 

IF @WhichPricex=1 
BEGIN 
UPDATE 

Engine 

50 SET 
VolumeAct=(Vo!umeAct+@zVolume) p 
AmountAct=(AmountAct-^zAmount), 

PriceOrRateAct=ROUND(((AmountAct-^zAmount)/(VolumeAct-f@zVolume)),4) 



WHERE 

TID=@zRecTiD AND 
Effective=@GasMonthx AND 
ST!D=4 

END 

65 * END 

END 



* Any fuel costs?? 
70 * (engine transaction ID is 5) 
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10 



IF @yFueiPercent<>0 
BEGIN 



AND Effective=@GasMonthx AND STID=5),0) < 1 



SELECT @zRate=@yFuelPercent 

SELECT @zVoiume=@yReceipt*@zRate 

IF ISNULL((SELECT countf) FROM Engine WHERE TID=@zRecTID 



BEGIN 

IF @WhichPricex=0 



BEGIN 
INSERT 



INTO 



15 



20 



25 



30 



35 



40 



m) 



ateAct) 



Engine 

(TID,Effective 1 STiD I VolLevel ( VolGroup ( MMBtuMCF 1 Engine_UT f Engine_UU,Volume,Amountprire 

VALUES 

(@zRecTID ( @GasMonthx r 5,0,@zPackage l 1 l getdate(),useLname() ) @2Volume t 0,@zRate) 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

Engine 

(TiD,Effective,STID,VotLevei,VolGrou^ 

VALUES 

(@zRecTID,@GasMonthx ( 5,0 ( @zPackageJ,getdate() p user_name(),@zVoiume f 0,@zRate) 

END 

END 

ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 



UPDATE 



Engine 
SET 



45 



50 



55 



60 



65 



70 



Volume=(Voiume+@zVolume) 

TlD=@zRecTID AND 
Effective=@GasMonthx AND 
STID=5 



VoiumeAct=(VolumeAct-+@zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthxAND " 
STID=5 

END 



WHERE 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



WHERE 



END 



END 



-94- 



* Any pvr?? 

* (engine transaction ID is 6) 
V 

IF @yPlantVo!Reduction<>0 
BEGIN 

SELECT @zRate=@yPlantVolReduction 
1 0 SELECT @zVolume=@yReceipt*@zRate 

IF !SNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID 
AND Effective=@GasMonthx AND STID=6),0) < 1 

BEGIN 

IF @WhichPricex=0 

15 BEGIN 

INSERT 

INTO 



20 



25 



30 



45 



m) 



35 ateAct) 



40 



Engine 

(TiD f Effective 1 STID J VoiLevel,VoiGroup,MMBtuMCF t Engine_UT,Engine_UU l Volume,Amount ) Pri 

VALUES 

(@zRecTiD,@GasMonthx I 6,O p @zPackage,1 ) getdate() p user_name() ( @zVolunie p O ) @zRate) 

END 

IF @WhichPricex=1 

BEGIN 
iNSERT 

INTO 

Engine 

(T!D,Effective,STID,VolLevel,VolGroup,M^ 

VALUES 

(@zRecTiD,@GasMonthx T 6,O p @zPackage,1 l getdate() p user_name(),@zVolume t O p @zRate) 

END 



ELSE 



END 
BEGIN 

IF @WhichPricex=0 



BEGIN 
UPDATE 



Engine 
SET 



50 



55 



60 



Volume=(Vo!ume-KgzVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=6 



WHERE 



END 

IF@WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



65 



VolumeAct=(VolumeAct+@zVoiume) 

TlD=@zRecTID AND 
Effective=@GasMonthx AND 



WHERE 
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ST1D=6 

END 

END 

5 END 

COMMIT WORK 

FETCH NEXT FROM LegDetailCursor INTO 
@yGasDay ( @yDeIMID ( @yRecMID,@yUD f @yReceipt,@yFuelOrOther, 

10 @yDehvered,@yTransportationRate,@yG 
KG, 

@yRMeterPipe,@yRMeterMeter,@yDMeterPipe,@yDMeterMeter,@yKiD 
END 

1 5 CLOSE LegDetailCursor 

DEALLOCATE LegDetailCursor 

SELECT @zMessage = 'PSPriceTranportAII, Finished....' 

EXECUTE uspJVIessage @zMessage 

END 

20 



25 



GO 

30 SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 

GO 



35 



60 



SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceWASPCalc( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12) 
40 ) 

AS 

BEGIN 

r 

45 Name: usp_PSPriceWaspCalc 

Description: This is the main process for calculating the WASP price information for 
a particular gas month and type of price (nom's or pipeline actuals). The end result 
of this process is to post updated price amounts within the engine. The WASP calculation 
50 has also been modified to perform the calculations pooled by entity (passed to this 

routine), within entity by product (Oii/Gas/Liguids) and service (marketing/passthrough/etc.). 

Inputs: 

55 GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 



History: 

06/22/99 JAMIE Original creation 



07/22/99 JAMIE Include 3rd party deals within the 
caicualtion process. They WILL NOT BE included within the WASP calculations 
65 and will be treated the same as "Dedicated* (sanctioned sales) deals. This 

will ensure they are not affecting any other pricing component 

05/01/00 JAMIE Modifications to utilize the new routing structure as part of the 
calculation. A check is made to see if any 'routing' entries are made to the new 
70 structures (for the month). If so, then this routine will invoke the new routines. 
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Otherwise, the old routines are invoked. 



15 



20 



05/24/2000 JAMIE Modifications to add the EntityCIDx component to the calculation (passed 
to this routine by the calling program), in addition, modifications were made to calculate 
aii WASP pricing within each unique product and service. 

08/25/2000 JAMIE Modified to remove ali of the old routing routines. 



10 7 

r 



* Declare all variables and cursors 

* that are needed by this process. 
****************************************** 

7 

DECLARE @zMessage VARCHAR(254) 
DECLARE @yKProductlD INTEGER 
DECLARE @yKProductName VARCHAR(50) 

DECLARE @yKSen/icelD INTEGER 
DECLARE @yKServiceName VARCHAR(50) 



DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
25 SELECT 

ProcessingCodeiD, 

ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType='CONTRPRODS' 

30 ORDER BY 

ProcessingCodeiD 

SELECT ©zMessage = 'PSPriceWASPCalc, Running for Entity , +@EntityCIDx+'...' 
EXECUTE usp_Message @zMessage 

35 /;_ ______ _ 

* Outermost loop is on product type... 
7 

40 OPEN ProductTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT @zMessage = 'PSPriceWASPCalc, Running for Product '+@yKProductName+'... 
45 EXECUTE uspjvlessage @zMessage 

r 



* Next loop is on service type... 

50 7 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

ProcessingCodeiD, 
ShortDescription 

55 FROM 

SEProcessingCodes WHERE CodeType^'CONTRSRVS' 

ORDER BY 

ProcessingCodeiD 

OPEN ServiceTypesCursor 

60 FETCH NEXT FROM ServiceTypesCursor iNTO @yKServiceiD,@yKServiceName 

WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPCalc, Running for Service 



65 '+@yKServiceName+' ..' 



EXECUTE usp_Message ©zMessage 
/* 



* Now populate the waspresoivedroutmg 
70 * tables with all sales and transport 
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* totals that were linked to purchases 

* within the route process. 

*/ 

5 EXECUTE usp_PSPriceWASPCaicSalesN 

@GasMonthx p @WhichPricex,@EntityCIDx p @yKProductiD,@yKServicelD 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKServicelD,@yKServiceName 
10 END 

CLOSE ServiceTypesCursor 
DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

1 5 CLOSE ProductTypesCursor 

DEALLOCATE ProductTypesCursor 

r 

* Finished. A later routine will take 
20 * the well prices to the actual engine 

* table (PSPriceAII for Purchases). A 

* commit takes place right here just to 

* make sure we limit our recovery window 

* if problems later.. Also, don't want 
25 * to hold locks for an extended amount 

* of time. 

*/ 

SELECT ©zMessage = 'PSPriceWASPCalc, Finished with Entity , -+@EntityCiDx-^../ 
30 EXECUTE usp_Message @zMessage 

END 



35 

GO 

SET QUOTEDJDENTlFiER OFF SET ANSI_NULLS ON 
GO 

SET QUOTEDJDENTlFiER OFF SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResoiveDriver( 
45 ©GasMonthx DATETIME, 

©WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12), 
@lncludeinWaspx VARCHAR(10) 
) 

50 AS 

BEGIN 

r 



40 



55 



60 



65 



70 



Name; usp_PSPriceWaspCafcResolveDriver 

Description: This is the main process that controls the 'walking back* (resolving) 
of sales amounts back to their respective purchase deals. 

Inputs: 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityClDx (which company is being calculated (owner company)) 

IncludelnWaspx ('CommonVNone' or 'Dedicated') 

History: 

07/28/2000 JAMIE Original creation 
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* Declare ail variables and cursors 
5 * that are needed by this process. 

7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©yKProductID INTEGER 
1 0 DECLARE ©yKProductName VARCHAR(50) 

DECLARE ©yKServicelD INTEGER 
DECLARE @yKServiceName VARCHAR(50) 

1 5 DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

20 SEProcessingCodes 

WHERE 

CodeType-CONTRPRODS' 

ORDER BY 

ProcessingCodelD 



25 



30 



SELECT @zMessage = 'PSPriceWASPCalcResioveDriver, Running for Entity , +@EntityCIDx+' Pool 

'+@lncludelnWaspx+'../ 

EXECUTE usp.Message @zMessage 

r 

* Outermost loop is on product type... 



7 

OPEN ProductTypesCursor 
35 FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT ©zMessage = 'PSPriceWASPCalcResioveDriver, Running for Product 

, -KgyKProductName+'...' 
40 EXECUTE usp_Message ©zMessage 

r 

* Next loop is on service type... 



45 7 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodelD, 
ShortDescription 

50 FROM 

SEProcessingCodes 

WHERE 

CodeType=*CONTRSRVS' 

ORDER BY 

55 ProcessingCodelD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKService!D,@yKServiceName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPCalcResioveDriver, Running for 

Service '-Kc§yKServiceName+' ..' 

EXECUTE usp_Message ©zMessage 
EXECUTE usp.PSPriceWASPCalcResoiveN 
65 ©GasMonthx.gWhichPricex.gEntityCIDx.gyKProductlD^yKServicelD.glncludelnWaspx 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKServicelD,@yKServiceName 

END 

70 CLOSE ServiceTypesCursor 
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DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

CLOSE ProductTypesCursor 
5 DEALLOCATE ProductTypesCursor 

SELECT ©zMessage = 'PSPriceWASPCalcResolveDriver, Finished with Entity '-KgEntityCIDx+'.Pooi 

■+@inciudelnWaspx+\..' 

EXECUTE usp_Message ©zMessage 

END 

10 



15 GO 

SET QUOTED .IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED JDENTIFIER ON SET ANSI.NULLS ON 
20 GO 

CREATE PROCEDURE usp _PSPriceWASPCalcResoiveN( 



25 



30 AS 

BEGIN 



Name: usp_PSPriceWASPCaicResolveN 

35 

Description: This particular stored procedure is responsible for looping through and 
chasing all volumes back from purchase points back to the respective meter locations 
that originally contained the purchase volumes, 

40 History: 

05/01/2000 JAMIE Original Creation. 

05/24/2000 JAMIE Modified to include the entity, product and service. 

45 

07/28/2000 JAMIE Modified to include the includeinWaspx parameter so that 
the calculations can be run in a specified WASP order... 

08/17/2000 JAMIE Removed the call to PSWASPCalcPostPurchaseN. This 
50 was done based on all wasp calculation entries being setup in the 
WASPResolvedRouting table. 



7 

55 r 



* Declare all variables and cursors 

* that are needed by this process. 



60 7 

DECLARE ©zMessage VARCHAR(254) 

SELECT @zMessage = 'PSPriceWASPCaicResolveN Has Started for pool , -+@lnclude!nWaspx+'...' 
EXECUTE usp_Message @zMessage 

65 /* uli;:LJLUlu mi JLiJL 

* Now invoke the routine that will chase 

* the volumes, prices and amounts back to 
*the purchase points. 

70 **** ******* — 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©EntityClDx VARCHAR(12), 
©KProductlDx INTEGER, 
©KServiceiDx INTEGER, 
©IncludeinWaspx VARCHAR(10) 
) 
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*/ 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN, Tracing back all gas (resolving sales)...' 
EXECUTE usp_Message @zMessage 
EXECUTE usp_PSPriceWASPCaicResolveSa!esN 
5 ©GasMonthx^WhichPricex^EntityCiDx.QKProductlDx.QKServicelDx^lncludelnWaspx 

r 

*Time to leave... 
10 */ 

SELECT @zMessage = 'PSPriceWASPCalcResolveN Has Completed for Pool , +@lnciudelnWaspx+\..' 

EXECUTE uspjvtessage @zMessage 

END 

15 

GO 

SET QUOTED JDENTIFIER OFF SETANSI.NULLS ON 
GO 

20 SET QUOTEDJDENTIFiER OFF SET ANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResoiveSalesN( 

@GasMonthx 

25 DATETIME, 

@WhichPricex 

INTEGER, 

©EntityCiDx 

VARCHAR(12), 

30 ©KProductlDx 
INTEGER, 

©KServicelDx 

INTEGER, 

@lncludelnWaspx 

35 VARCHAR{10) 

) 

AS 

BEGIN 

r 

40 ***** **************** ***** * * - 

Name: usp_PSPriceWASPCaicResolveSaies 

Description: This particular stored procedure will loop through (iteratively) all of 
the sales meter records within the WASPResolvedRouting table (type 'S' records) and 
45 distribute their respective volumes, amounts and prices back to the purchase points 

(wieghted). 

All volumes should match here since the routing process routes purchase deais directly 
to sales deals AND the WASPResolvedRouting table was built on explicit volumes and 
50 links found in the LegDetail (main routing) table. 

Inputs: 

GasMonthx - Gas Month 
55 WhichPricex - (^Nominations, 1 =Actuals 

EntityCIDx - owning company 
KProductlDx - product id (oil, gas, liquids, etc.) 
KServicelDx - service id (marketing, passthrough, etc.) 
InciudelnWaspx - ('Common' or 'None' or 'Dedicated') 

60 

History: 

05/01/2000 JAMIE Original Creation. 

65 07/20/2000 JAMIE Modified in order to capture and save resolved total amounts 

along with the resolved volume amounts. This was required in order to correct a 
calculation problem. 

07/28/2000 JAMIE Modified to take into consideration which WASP pool is currently 
70 being resolved. 
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12/05/2000 JAMIE Modified to ensure that the receipt amount will not be exceeded 
when determining the volume to use. This situation only arose when certain 
unresolved records were ordered a certain way (during the resolution ritual). 
5 Confusing, I know, but that is the best I can do... The field zTempLeft contains 

this informaion 



*/ 

10 r 



* Declare all variables and cursors 

* that are needed by this process. 



15 7 

DECLARE ©zTempLeft DEC1MAL(19,2) 
DECLARE ©zRound INTEGER 
DECLARE ©zMessage VARCHAR(254) 
DECLARE @zAnyUpdates VARCHAR(1) 

20 DECLARE ©zResolvedReceipt DECIMAL(1 9,2) 

DECLARE ©zResolvedReceiptAmt DECIMAL(19,2) 
DECLARE ©zResolvedDelivered DECIMAL(19,2) 
DECLARE ©zResolvedDeliveredAmt DECIMAL(19,2) 
DECLARE ©zReceiptLeft DECiMAL(19,2) 

25 DECLARE ©zReceiptAmtLeft DECIMAL(19,2) 

DECLARE QzPercentToApply DECiMAL(19,6) 
DECLARE ©zSumDelivered DECIMAL(19,2) 
DECLARE @zPercentReceiptDECIMAL(19,6) 
DECLARE ©zUseVolume DECIMAL(19,2) 

30 DECLARE ©zUseAmount DEC1MAL(19,2) 

DECLARE @zAmountDECIMAL(19,2) 
DECLARE @zNewAmountDECIMAL(19,2) 
DECLARE ©zNewPrice DEC1MAL(19,6) 
DECLARE ©zTempVoIume DECIMAL(19,2) 

35 DECLARE ©zTempAmount DECIMAL(19,2) 

DECLARE ©zVolumeDispersed DECIMAL(19,2) 
DECLARE ©zAmountDispersed DECIMAL(19,2) 
DECLARE ©zDifference DECIMAL(19,2) 
DECLARE ©zResoivedlndicator VARCHAR(1 ) 

40 DECLARE @zLinkUpdate VARCHAR(1) 

DECLARE ©zDeliveredLeft DECIMAL(19,2) 

DECLARE ©yDelMID INTEGER 
DECLARE ©yRecMID INTEGER 

45 DECLARE ©yReceipt DECIMAL(1 9,2) 

DECLARE @yFuel0r0therDEClMAL(19,2) 
DECLARE @yDe!ivered DECIMAL(19,2) 
DECLARE ©yTransportAmount DECiMAL(19,2) 
DECLARE ©yGatheringAmount DECiMAL(19,2) 

50 DECLARE ©yAmount DEC!MAL(19,2) 

DECLARE ©yDedicatedPurchasePKG INTEGER 
DECLARE ©yPrice DECIMAL(19,6) 
DECLARE ©yResolvedReceipt DECIMAL(19,2) 
DECLARE ©ylncludelnWasp VARCHAR(10) 

55 DECLARE ©yResolvedDelivered DECIMAL(1 9,2) 

DECLARE ©yResoivedID INTEGER 
DECLARE ©yResoivedReceiptAmt DECIMAL(19,2) 
DECLARE ©yResoivedDeliveredAmt DECIMAL(19,2) 

60 DECLARE ©IDeiMiD INTEGER 

DECLARE ©IRecMID INTEGER 
DECLARE ©Receipt DECIMAL(19,2) 
DECLARE ©IFuelOrOther DECIMAL(19,2) 
DECLARE ©Delivered DECIMAL(19,2) 

65 DECLARE ©ITransportAmount DECIMAL^ 9,2) 

DECLARE ©IGatheringAmount DECIMAL(19,2) 
DECLARE ©lAmount DECIMAL(19,2) 
DECLARE ©IDedicatedPurchasePKG INTEGER 
DECLARE ©IPrice DECIMAL(15,6) 

70 DECLARE ©IResolvedReceipt DECIMAL(19,2) 
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DECLARE ©ilnciudeinWasp VARCHAR(IO) 
DECLARE @IResolvedDelivered DECiMAL(19,2) 
DECLARE ©IResolvedID INTEGER 
DECLARE ©IResolvedReceiptAmt DEC!MAL(19,2) 
DECLARE ©IResolvedDeliveredAmt DECiMAL(19,2) 



I* 



* This loop wiii iterate until no more 
10 * gas can be distributed to various 

* saies meters within the 

* WaspResolvedRouting table. 

*/ 

1 5 SELECT ©zRound = ISNULL((SELECT TypeLimit FROM SEProcessing Codes WHERE ProcessmgCodelD = 

@KProductlDx),0) 

SELECT ©zMessage = 'PSPriceWASPCalcResoiveSaiesN, starting iterative process...' 
EXECUTE usp.Message ©zMessage 
SalesMeterlterationLoop: 
20 BEGIN 

SELECT @zAnyUpdates='N' 

DECLARE WASPResoivedSalesCursor CURSOR LOCAL DYNAMIC FORWARD.ONLY FOR 
SELECT 

DeiMID, 

25 RecMID, 

Receipt, 
FuelOrOther, 
Delivered, 
TransportAmount, 

30 GathenngAmount, 

Amount 

DedicatedPurchasePKG, 
Price, 

ResolvedReceipt, 

35 Include! nWasp, 

ResolvedDelivered, 

ResolvedlD, 

ResolvedReceiptAmt, 

ResoivedDeliveredAmt 
40 FROM 

WASPResolvedRouting 

WHERE 

(GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
45 !ncludelnWasp=@!nciudelnWaspx AND 

ResolvedlndicatoroY AND 
ResolvedReceiptoReceipt AND 
ResolvedTypeo'P' AND 
Amount<>0 AND 

50 Price<>0 AND 

Delivered<>OAND 
EntityClD=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServiceiDx) 

55 ORDER BY 

includelnWasp, 

DedicatedPurchasePKG, 

DeiMID 

OPEN WASPResoivedSalesCursor 
60 FETCH NEXT FROM WASPResoivedSalesCursor INTO ©yDelMID, 

©yRecMID.QyReceipt^yFueiOrOther.QyDelivered.gyTranspon^mount^yGatheringAmount^yAmount 
.©yDedicatedPurchasePKG, 

65 ©yPrice.QyResolvedReceiptgylncludeinWasp^yResolvedDelivered^yResolvediD, 

@yResoivedReceiptAmt,@yResoIvedDeiiveredAmt 
WHILE @@FETCH_STATUS = 0 
BEGIN 

70 r 
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* Loop through each of the legs that 

* have the delivery meter the same as 

* the receipt meter for the given 

* month and class... 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



7 

SELECT @zVoiumeDispersed=0 
SELECT @zAmountDispersed=0 
SELECT @zLinkUpdate- N' 

DECLARE WASPResoivedLinkCursor CURSOR LOCAL DYNAMIC 



FORWARDjDNLY FOR 



SELECT 



AND 
AND 

AND 



DelMID, 

RecMID, 

Receipt, 

FuelOrOther, 

Delivered, 

TransportAmount, 

GatheringAmount, 

Amount, 

DedicatedPurchasePKG, 
Price, 

ResoivedReceipt 

IncludelnWasp, 

ResoivedDeiivered, 

ResoivediD, 

ResoivedReceiptAmt 

ResolvedDeliveredAmt 

FROM 

WASPResoivedRouting 

WHERE 

(GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex 

I ncludelnWasp=@y IncludelnWasp 



DedicatedPurchasePKG=@yDedtcatedPurchasePKG AND 



De!MlD=@yRecM!D AND 
ResolvedlD<>@yResolvediD 

EntityCID=@EntityCIDxAND 
KProductiD=@KProductiDx AND 
KServicelD=@KServicelDx AND 
ResoivedTypeo'S'AND 
ResolvedDelivered<Delivered) 

OPEN WASPResoivedLinkCursor 
FETCH NEXT FROM WASPResoivedLinkCursor INTO ©IDeiMID, 

©IRecMiD.glReceiptglFuelOiiDther,®^ 
DedicatedPurchasePKG, 

©IPh^tgiResolvedReceipt^llnciudeinWasp.glResolvedDetivered^iResolvedlD, 

@IResoivedReceiptAmt@lResoivedDeliveredAmt 

WHILE @@FETCH_STATUS = 0 
BEGIN 



* Determine the total volume of gas 

* where this gas came from (based on 

* delivery meterid being equal to 

* the receipt meter id and ail WASP 

* pool and dedicated purchase package 

* information being identical). 

* The zUseVolume field contains the 

* amount of volume from the delivery 

* meter to apply backward. 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



@zResolvedReceiptAmt=@yResolvedReceiptAmt 



AND(@yDelivered>@yResolvedDelivered) 
@zPercentReceipt=(@yResolvedDelivered/@yDelivered) 

more than */ 
previous */ 



* The zUseAmount field contains the 

* dollar amount from the delivery meter 
'that should be applied backward. 

* 

* The zPercentToApply field contains the 

* volume weighted percentage to use. 

*/ 

SELECT @zResoivedReceipt=@yResoivedReceipt 
SELECT 

SELECT @zPercentReceipt=1 

/* Determine total receipt volume available to apply*/ 
/* This is based on percentage of delivered that may have*/ 
/* already been applied. In addition, determine the*/ 
/* amount that is available...*/ 

IF (@yDelivered<>0) AND (@yResolvedDeiivered<>0) 

BEGIN 
SELECT 

END 

/* Incorporated this logic to ensure that no 
/* the original receipt can be sent back to 
F meter... 12/05/2000*/ 



SELECT 

@zReceiptLeft=ROUND((@yReceipt*@zPercentRecefpt),@zRound) 
@yResolvedReceipt) 
@zPercentReceipt),@zRound); 



@zReceiptLeft=@zTempLeft 

@yResolvedReceiptAmt),2) 

apply... and RecMID<>DelMID */ 

SUM(Delivered) FROM WASPResolvedRouting 



SELECT @zTempLeft=(@yReceipt - 
SELECT @zTempLeft=Round((@zTempLeft * 

IF ©zTempLeft < ©zReceiptLeft 
BEGIN 

SELECT 

END 

SELECT @zReceiptAmleft=ROUND((@yAmount- 
F Determine percentage of the volumes and amounts to 



SELECT @zPercentToApply=1 

SELECT @zSumDelivered=!SNULL((SELECT 



WHERE 



GasMonth=@GasMonthx AND NomOrActual=@WhichPricex AND lncludelnWasp=@ylnciudelnWasp AND 

DedicatedPurchasePKG=@yDedicatedPurchasePKG AND DelMid=@yRecMID AND ResolvedTypeo'S* 



AND 



EntityCID=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServiceiDx) t O) 



IF (@zSumDeiivered<>0) AND (@lDelivered<>0) 
BEGIN 
SELECT 

@zPercentToApply=ROUND((@IDelivered/@zSumDelivered) ) 6) 

END 

ELSE 

BEGIN 

SELECT @zPercentToApply=0 
END 
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/* Calculate volume to apply backwards for this particular 

leg...*/ 

SELECT 

5 @zUseVolume=ROUND((@zReceiptLeft*@zPercentToApply),@zRound) 

SELECT @zDeiiveredLeft=@IDelivered- 

©IResolvedDelivered 

IF @zUseVoiume>@zDeliveredLeft 
BEGIN 

10 SELECT 

@zUseVolume=@zDeliveredLeft 

END 

SELECT 

@zResolvedReceipt=@zResolvedReceipt+@zUseVolume 
1 5 SELECT 
@zVolumeDispersed=@zVoiumeDispersed-^zUseVoIume 



20 



/* Calculate dollar amount to apply backwards for this 

particular leg...*/ 



SELECT 

@zUseAmount=ROUND((@zReceiptAmtLeft*@zPercentToApply),2) 

SELECT 

@zResolvedReceiptAmt=@zResolvedReceiptAmt+@zUseAmount 
25 SELECT 
@zAmountDispersed=@zAmountDispersed-H§zUseAmount 

/* 



* Now update the meter feeding 
30 * this delivery point with the 

* information just posted... 

* The amount is calculated based 

* on the previous value plus 
35 * the amount being posted from 

* the delivery meter. The 

* price is derived based on 

* receipt volume into the amount 
* 

40 * Since we are not forcing the pipes 

* to balance then calculate the price 

* based solely on the volume resolved 

* on delivery. ______ 

45 */ 

IF (@zUseVolume>0) AND (@zlfseAmount<>0) 

BEGIN 

SELECT 

@zResoivedDelivered=@lResolvedDelivered-^zUseVolume 
50 SELECT 
@zResolvedDeliveredAmt=@lResolvedDeliveredAmt+@zUseAmount 



@zNewAmount=ROUND((@IAmount^zUseAmount),2) 
55 AND (@IReceipt<>0) 



SELECT 
IF (@zResoivedDeiiveredAmt<>0) 
BEGIN 



SELECT @zNewPrice=ROUND((@zNewAmount/@lReceipt),4) 

END 

60 ELSE 

BEGIN 

SELECT @zNewPrice=0 

END 

65 * UPDATE 

WASPResolvedRouting 

SET 

70 Resolvedindicator='N', 



-106- 



ResolvedDeiivered=@zResolvedDelivered, 



10 



20 



55 



ResoivedDeiiveredAmt=@zResolvedDe!iveredAmt, 

Amount=@zNewAmount, 

Price=@zNewPrice 

WHERE 

ResolvedlD=@IResoivedlD 



SELECT @zAnyUpdates=Y 
SELECT @zLinkUpdate=T 

END 

1 5 FETCH NEXT FROM WASPResoivedLinkCursor INTO 

©IDelMID, 



@[RecMID f @IReceipt 1 @IFue!OrOther 1 @Delivered,@rrransportAmount i @ 
DedicatedPurchasePKG, 

@IPnce f @IResolvedRe(»ipt,@llncludelnWasp,@iResolvedDelivered,@IResolvedlD ( 



@!ResolvedReceiptAmt,@IResolvedDeliveredAmt 

END 

25 CLOSE WASPResoivedLinkCursor 

DEALLOCATE WASPResoivedLinkCursor 

r 



* After looping through all of the 
30 * meters that can possible associate 

* with this sale, go ahead and update 

* the original sales meter information 

* to reflect the total volume 

* passed on to subsequent meters. 

35 ~" 

*/ 

iF@zLinkUpdate=Y 
BEGIN 

UPDATE 

40 WASPResolvedRouting 

SET 

ResolvedReceipt=ResolvedReceipt+@zVolumeDispersed, 
45 ResolvedReceiptAmt=ResolvedReceiptAmt-MgzAmountDispersed, 

WHERE 



Reso!vedlndicator=Y 



Resolved! D=@yResolvedlD 
50 END 

FETCH NEXT FROM WASPResolvedSaiesCursor INTO ©yDelMID, 



@yRecMlD P @yReceipt,@yFueiOrOther ) @yDelivered,@yTransportAmount r @yGatheringAmount@yAmount 
,@yDedicatedPurchasePKG, 

^Price,@yResolvedReceipt 1 ^lnciudelnWasp,@yResolvedDelivered f @yResolvedlD ) 



@yResoivedReceiptAmt,@yResoivedDeliveredAmt 
END 

60 CLOSE WASPResolvedSaiesCursor 

DEALLOCATE WASPResolvedSaiesCursor 

(* ^^^^^ 

* If no more volume was chased backward 
65 * then get out of the iterative loop. 

* At this point ail volumes have been 

* sent back to all meters and weighted 

* costs should be available at each. 

70 */ 
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IF@zAnyUpdates<>'N' 
BEGIN 

GOTO SalesMeteriterationLoop 

END 

5 END 
END 



10 



15 



GO 

SET QUOTED .IDENTIFIER OFF SET ANSI JMULLS ON 
20 GO 

SET QUOTED JDENTIFIER OFF SET ANSI.NULLS ON 
GO 

25 CREATE PROCEDURE usp_PSPriceWASPCalcSalesN( 



30 

AS 

BEGIN 

r 

35 ********* ***** — *~ 

Name: usp_PSPriceWASPCalcSalesN 

Description: This process wiii build all of the meters within the 
WASPResoivedRouting table for all of the deals within the gas month. Oniy 
40 those meters that had actual transport volume will be moved. A 

different routine will iterate through the voiumes posted here in order 
to calculate all of the prices. 

Inputs: 

45 

GasMonthx - Gas Month 
WhichPricex - 0=Nominations, 1=Actuals 
EntityClDx - Entity being calculated (owning company) 
KProductlDx - Product type being calculated. 
50 KServiceiDx - Service type being calculated. 

History: 

05/02/2000 JAMIE Original Creation. 

55 

05/24/2000 JAMIE Modified to add the Entity, product and service types to be 
parameters to this procedure. This will ensure that gas, oil, etc amongst the 
various types of companies (entities) being serviced do not get intermixed. 

60 07/20/2000 JAMIE Modified in order to initialize new resolved amount fields for 

all records that get added to the WASPResoivedRouting table. 

08/18/2000 JAMIE Modified to go ahead and put the actual purchase point 
items on the table to include them in the calculations. At this point the 
65 WASPResoivedRouting table will contain ALL entries (see Type 1 field on the 

database). Purchase points thru Saies points. 

10/03/2000 JAMIE Modified to incorporate the 'Other Cost amount totals 
into the Resolved table total calculation. 

70 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©EntityClDx VARCHAR(12), 
©KProductlDx INTEGER, 
©KServiceiDx INTEGER 
) 
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01/09/2000 JAMIE For consistency. Modified the rounding (on the prices 
to two decimal places (for all months previous to December 2000). 



5 7 
/* 



* Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE ©zMessage VARCHAR(254) 

DECLARE ©zlncludeinWasp VARCHAR(10) 

DECLARE ©zVoiume DEC!MAL(19,2) 
1 5 DECLARE ©zType VARCHAR(1 ) 

DECLARE ©zPrice DECIMAL(19,6) 

DECLARE ©zAmount DECIMAL(19,2) 

DECLARE QzOtherCostAmount DECIMAL(19,2) 

DECLARE @zDedicatedPurchasePKG INTEGER 
20 DECLARE @zGatheringAmount DECiMAL(19,2) 

DECLARE ©zTransportationAmount DECIMAL(15,2) 

DECLARE ©zAmountWithCosts DECIMAL(19,2) 

DECLARE ©zLastDay DATETIME 

DECLARE ©zPrevSalePKG INTEGER 
25 DECLARE ©zPrevSaleMID INTEGER 

DECLARE ©yPurchasePKG INTEGER 

DECLARE ©yRecMID INTEGER 

DECLARE ©yDeiMID INTEGER 
30 DECLARE ©ySalesPKG INTEGER 

DECLARE ©yReceipt DECIMAL(19,2) 

DECLARE ©yLDIDPrev INTEGER 

DECLARE ©yGasDay DATETIME 

DECLARE ©yPurchasePointTID INTEGER 
35 DECLARE @yStep INTEGER 

DECLARE @xPriceOrRateNom DECIMAL(19 t 6) 
DECLARE QxPriceOrRateAct DECIMAL(19,6) 

40 DECLARE ©qPurchasePKG INTEGER 

DECLARE @qLID INTEGER 

DECLARE ©qRecMID INTEGER 

DECLARE ©qDeiMiD INTEGER 

DECLARE @qReceipt DECIMAL(19,2) 
45 DECLARE ©qDelivered DECIMAL(19,2) 

DECLARE @qFuelOrOtherDEClMAL(19,2) 

DECLARE @qTransportDEC!MAL(19,2) 

DECLARE @qGathering DECIMAL(19,2) 

50 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN Has Started...' 
EXECUTE usp Message @zMessage 

r 

55 ******* ***** 

* Delete any pre-existing resolved entries 

* that may exist in the database... These 

* records are the ones related to the 

* entity, product and service tyeps, 

60 

*/ 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, Deleting existing entries off WASPResoivedRouting...' 
EXECUTE uspjvlessage @zMessage 
DELETE 
65 FROM 

WASPResoivedRouting 

WHERE 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
70 EntityCID=@EntityC!Dx AND 
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KProductlD=@KProductlDx AND 
KServicelD=@KSeivicelDx 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, Finished deleting existing entries off WASPResolvedRouting...' 
EXECUTE usp_Message @zMessage 

r 



* initially loop through the sales links 
Mound on the fegdetaii table (high level 

* loop)... Only looping through those 

* items that are associated with this 

* entity and product/service type. 



7 

SELECT @zPrevSaIePKG=0 
SELECT @zPrevSaleMID=0 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 
DECLARE LegDetailSaieCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PurchasePKG, 

RecMID, 

DeiMID, 

SalesPKG, 

Receipt 

LDIDPrev, 

GasDay, 

PurchasePointTID, 

Step 

FROM 

LegDetail 

WHERE 

LegDetail.PurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, 
K WHERE Gaslnv,PKG=Package.PKG AND k.kid = Package.KID AND Gas(nv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 and Package.KProductlD = ©KProductlDx and Package.KServtcelD = 
©KServicelDx AND K.EntityCID = ©EntityCIDx) AND 

LegDetail.GasDay>=@GasMonthx AND 

LegDetail.GasDay<=@zLastDay AND 

LegDetail.GasMonth=@GasMonthx AND 

LegDetail. NomOrActuals=@WhichPricex AND 

LegDetaill!D=OAND 

LegDetail.PurchasePKG>0 AND 

LegDetaiLSaiesPKG>0 

ORDER BY 

LegDetaiLSalesPKG, 

LegDetaii.RecMID, 

LegDetaii.PurchasePointTID, 

LegDetaii.GasDay, 

LegDetaii.PurchasePKG 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, opening main sales cursor (LegDetailSaieCursor)...' 
EXECUTE uspjvlessage @zMessage 
OPEN LegDetailSaieCursor 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, finished opening main sales cursor (LegDetailSaieCursor)...' 

EXECUTE uspjvlessage @zMessage 

FETCH NEXT FROM LegDetailSaieCursor INTO @yPurchasePKG, 

©yRecMlD^yDelMID^ySalesPKG.gyReceipt^yLDIDPrev^yGasDay^yPurchasePointTID.QyStep 
WHILE @@FETCH STATUS = 0 
BEGIN 

/* 



* Determine the classification of the 

* purchase deal attached to this sales 

* volume right here... 



7 

EXECUTE usp_fGetWasplndicator@yPurchasePKG f @zlncludelnWasp OUTPUT 
IF @zlncludelnWasp='Common' 
BEGIN 

SELECT @zDedicatedPurcnasePKG=0 

END 

ELSE 
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BEGIN 

SELECT @zDedicatedPurchasePKG=@yPurchasePKG 

END 



* If sales package has changed OR 
*the meter within a sales package 

* has changed then (amongst other 

* things) sum up any/ail other costs 
10 * for the meter (this ensures that only 

* one instance of other cost entries 

* are totaled for a given sales deal 

* at a given meter). 



15 */ 

SELECT @zOtherCostAmount=0 

IF (@ySalesPKG<>@zPrevSalePKG) OR (@yRecMID<>@zPrevSaieM!D) 
BEGIN 

SELECT @zPrevSalePKG=@ySalesPKG 
20 SELECT @zPrevSa!eMID=@yRecM!D 

IF @WhichPricex=0 
BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.Amount) FROM Gaslnv.Engine WHERE 
25 Gaslnv.PKG=@ySaIesPKG 

AND 

Gaslnv.GasMonth=@GasMonthx AND Gas!nv.PriceType=1 AND Engine JID=Gaslnv JID AND 
Gasinv.Gaslnv_MID=@yRecMlD AND Engine.STID<>9),0) 

END 

30 IF @WhichPricex=1 

BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.AmountAct) FROM Gaslnv,Engme WHERE 
Gasinv,PKG=@ySalesPKG 
35 AND 

Gasinv.GasMonth=@GasMonthx AND Gas!nv.PriceType=1 AND Engine.TID=GasinvTID AND 
Gasinv.Gaslnv_MID=@yRecMID AND Engme.STID<>9),0) 

END 

END 

40 r 

* Calculate the price and amount for the 

* sales item here (utilizing the Engine 

* calculation). The beginning volume is 

45 * the amount pulled off the saies association 

* on the database... Break from this 

* loop once the first price record has been 

* obtained (for this day)... 

50 */ 

SELECT @zPrice=0 
SELECT @zAmount=0 
SELECT @zVolume=Q 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
55 SELECT 

Engine.PriceOrRateNom, 

Engine.PriceOrRateAct 

FROM 

Gaslnv, 

60 Engine 

WHERE 

Gaslnv.PKG=@ySalesPKG AND 
Gaslnv. PriceType=1 AND 
Engine.TID=GaslnvJID AND 
65 ' Gaslnv.Gasinv_MID=@yRecMID AND 

Engme.Effective<=@yGasDay AND 
Engine.STID=9 

ORDER BY 

Engine.Effective DESC 

70 OPEN EngineCursor 
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55 



60 



65 



•12/01/2000' 



FETCH NEXT FROM EngineCursor INTO @xPriceOrRateNom,@xPriceOrRateAct 
IF @@FETCH_STATUS = 0 
BEGIN 

IF @zPrice=0 

BEGIN 

IF @WhichPricex=0 

BEGIN 

IF @GasMonthx < 



ELSE 



ELSE 



END 
BEGIN 



ELSE 



@zPrice=ROUND(@xPriceOrRateNom,2) 



@zPrice=ROUND(@xPriceOrRateNom,4) 



'12/01/2000' 



@zPrice=ROUND(@xPriceOrRateAct p 2) 



@zPrice=ROUND(@xPriceOrRateAct,4) 

END 

SELECT @zVolume=@yReceipt 
SELECT @zAmount=(@zVoIume*@zPrice) 
END 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

r 

* Sum the other cost entry on the 

* amount brought back for the 

* production volume amount. The 

* other cost entry will only have a 

* non zero value the first time a 

* sales meter is encountered. Make 

* sure to reset the price ent ry. 

*/ 

IF @zOtherCostAmount<>0 
BEGIN 

SELECT @zAmount=@zAmount+@zOtherCostAmount 
IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

SELECT 

@zPrice=ROUND((@zAmounV@zVolume},4) 

END 

END 

r 



BEGIN 
SELECT 

END 

BEGIN 
SELECT 

END 



IF @GasMonthx < 



BEGIN 
SELECT 

END 

BEGIN 
SELECT 

END 



* Post a sales entry into the resolved 

* table here.. (UD=0)... Thiswiiibe 

* the starting point once the routing 

* interative process begins... 



*/ 

IF ISNULL((SELECT count(*) FROM WASPResolved Routing WHERE GasMonth=@GasMonthx 
AND RecMID=@yRecMID AND DelMID=@yDelMID AND 
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NomOrActual=@WhichPricex AND 
fncludelnWasp=@zlnclude!nWASP AND DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResoivedType='S' AND L!D=0 AND 
EntityCID=@EntityClDx AND KProductiD=@KProductlDx AND KServicelD=@KServiceiDx),0) < 1 
5 BEGIN 

INSERT 

INTO 

WASPResoivedRouting 

10 (GasMonth,RecMID ( DeiMiD,NomOrActua^ 
nt,Amount, 

IncludelnWasp.DedicatedPurchasePKGPrice.ResolvedReceipt^esoivedlndicator.ResolvedType^lD.ResoIv 
edDelivered, 



15 



20 



60 



65 



EntityCID^ProductlD^ServicelD.ResolvedReceiptAmtResolvedDeliveredAmt) 

VALUES 

(@GasMonthx,@yRecMID t @yDelMID,@Wtt^ 
©zincludelnWASP.gzDedicatedPurchasePKG.QzPrice.O.'N'.'S'.O.O, 



@EntityClDx s @KProductlDx,@KServicelDx,O f O) 
END 

25 ELSE 

BEGIN 

IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

UPDATE 

30 WASPResoivedRouting 

SET 

Receipt=(Receipt+@zVoiume) p 
35 Deiivered=(Deiivered+@zVolume), 
Amount=(Amount+@zAmount), 

Price=ROUND(((Amount-^zAmount)/(Receipt+@zVolume)) p 4) 
40 WHERE 

GasMonth=@GasMonthx AND 

RecMID=@yRecMID 

AND 

45 DelMiD=@yDelMID 
AND 

NomOrActual=@WhichPricex AND 
50 lnclude!nWasp=@zlncludeinWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResolvedType-S' 

AND 

55 LlD=0 AND 

EntityCID=@EntityCIDxAND 
KProductlD=@KProductlDx AND 
KServtceiD=@KServicelDx 



END 

END 

FETCH NEXT FROM LegDetaiiSaleCursor INTO @yPurchasePKG, 



©yRecMID.QyDeiMID^ySalesPKG.gyReceiptgyLDlDPrev.QyGasDay.QyPurchasePomtTID.QyStep 
END 

CLOSE LegDetaiiSaleCursor 
DEALLOCATE LegDetaiiSaleCursor 

70 r 
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* Once all of the sales meters have been 

* inserted then it is time to insert the 

* transportation routing leg entries. THese 
5 * are summarized entries. No day-to-day 

* cursor processing is required oniy the 

*sum of the unique days. 
* 

* Transport legs (type T) and purchase 
1 0 * points (type 'P) are posted here.. 

7 

DECLARE LegDetaiiChaseCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

1 5 LegDetaii.PurchasePKG, 

LegDetaiillD, 

LegDetail.RecMID, 

LegDetaiLDelMID, 

SUM(LegDetail.Receipt), 
20 SUM(LegDetail.Delivered), 

SUM(LegDetail.FueiOrOther), 

ROUND(SUM(LegDetail.Reoeipt*LegDetail.TransportationRatB) f 2), 

ROUND(SUM(LegDeta!i.Receipt*LegDetaif.GatheringRate),2) 

FROM 

25 LegDetail 

WHERE 

LegDetail.PurchasePointTID IN (SELECT DISTINCT TID FROM Gasinv, Package, 
K WHERE Gasinv.PKG=Package.PKG AND k,kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 and Package.KProductiD = ©KProductlDx and Package.KServicelD = 
30 ©KServicelDx AND K.EntityCiD = ©EntityCIDx) AND 

LegDetail.GasMonth=@GasMonthx AND 
LegDetaii.GasDay>=@GasMonthx AND 
LegDetaii.GasDay<=@zLastDay AND 
LegDetail.NomOrActuals=@WhichPricexAND 
35 LegDetail.SaiesPKG^O 

GROUP BY 

LegDetail.PurchasePKG, 

LegDetaiillD, 

LegDetail.RecMID, 

40 LegDetaiLDelMID 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, running query to create transportation legs... 1 

EXECUTE uspjvlessage ©zMessage 

SELECT @zPrevSalePKG=0 

SELECT @zPrevSaleMID=0 
45 SELECT ©zMessage = 'PSPriceWASPCalcSalesN, opening cursor (LegDetaiiChaseCursor)...' 

EXECUTE usp_Message ©zMessage 

OPEN LegDetaiiChaseCursor 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, finished opening cursor (LegDetaiiChaseCursor)...' 
EXECUTE usp_Message @zMessage 
50 FETCH NEXT FROM LegDetaiiChaseCursor INTO 

©qPurchasePKCgqUD^qRecMID^qDelMID.gqReceiptQqDelivered.gqFueiOrOther, 

@qTransport,@qGathering 

WHILE @@FETCH_STATUS = 0 
BEGIN 

55 I* 

* Determine the classification of the 

* purchase deal attached to this transort 

* volume right here... 

60 ****************** 

*/ 

IF (@qPurchasePKG<>@zPrevSalePKG) OR (@GL!D<>@zPrevSaieM!D) 
BEGIN 

SELECT @zPrevSalePKG=@qPurchasePKG 
65 ^ SELECT @zPrevSaleM!D=@qLID 

END 

EXECUTE uspJGetWasplndicator @qPurchasePKG,@zincludeinWasp OUTPUT 
IF ©zincludelnWasp-Common' 
BEGIN 

70 SELECT @zDedicatedPurchasePKG=0 
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END 

ELSE 

BEGIN 

5 END 
IF@qLlD=0 

BEGIN 
END 

10 ELSE 

BEGIN 
END 



15 



SELECT @zDedicatedPurchasePKG=@qPurchasePKG 
SELECT @zType-P' 
SELECT @zType=T 



/* 



* If the leg for this is in the WASP 

* temporary routing table then 

* just update the record with the 

* totals. Otherwise, insert it and 
20 * go to the next leg... 



7 

SELECT @zAmountWithCosts=((@qGathering+@qTransport)*-1 ) 
IF ISNULL((SELECT count(*) FROM WASPResolvedRouting 
25 WHERE GasMonth=@GasMonthx AND RecMID=@qRecMID AND 

DelMID=@qDelMID AND 

NomOrActual=@WhichPricex AND 

lnclude!nWasp=@zlnciudeinWASPAND 

DedicatedPurchasePKG=@zDedicatedPurchasePKGAND 

30 ResolvedType=@zType AND LID=@qLID AND 

EntityC!D=@EntityCIDx AND KProductlD=@KProductlDx 

AND KServicelD=@KServicelDx),0)<1 

BEGIN 

INSERT 

35 INTO 

WASPResolvedRouting 

(GasMonth.RecMID.DelMlD^omOrActuatReceiptFueiOrOthe^Delivered, 

40 TransportAmount J GatheringAmount,Amount,lncludelnWasp f DedicatedPurchasePKG, 

Price.ResolvedReceiptResolvedlndicator.ResolvedType^lD.ResolvedDefivered, 

EntityClD.KProducttD^KServicelD.ResolvedReceiptAmtResolvedDeliveredAmt) 
45 VALUES 

(@GasMonthx,@qRecMID ( @qDeiMiD,@WhichPricex ) @qReceipt,@qFuelOrOther,@qDelivered, 

@qTransport,@qGathering l @zArnountWithCosts t @zlnciudeinWASP ) @zDedicatedPurchasePKG, 
50 O.O/N'QzType.igqLID.O, 

@EntityClDx,@KProductlDx ) @KServicelDx,0,0) 
END 

ELSE 

55 BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Receipt=(ReceipH§>qReceipt), 
60 r Delivered=(Deiivered+@qDefivered), 

FuelOrOthep(FuelOrOther+@qFuelOrOther) ( 

TransportAmount={TransportAmount-^qTransport), 
65 GathenngAmount=(GatheringAmount+@qGathering) J 

WHERE 

GasMonth=@GasMonthx AND 
RecMlD=@qRecMID AND 

70 DelMID=@qDelMID AND 



Amount=(Amount-+@zAmountWithCosts) 
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NomOrActual=@WhichPricex AND 
IncludelnWasp=@zlncludelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 
5 ResolvedType=@zType AND 

LID=@qLID AND 
EntityCID=@EntityC!Dx AND 
KProductiD=@KProductlDx AND 
KServiceiD==@KServicelDx 

10 END 

FETCH NEXT FROM LegDetaiiChaseCursorlNTO 
©qPurchasePKG^qUD.gqRecMID.QqDelMID.gqReceiptgqDeiivered^qFuelOrOthen 

@qTransport,@qGathering 
15 END 

CLOSE LegDetailChaseCursor 

DEALLOCATE LegDetailChaseCursor 

SELECT @zMessage = 'PSPriceWASPCalcSaiesN Has Finished. J 

EXECUTE usp_Message @zMessage 
20 END 



25 



30 



35 GO 

SET QUOTED JDENTiFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSIJJULLS ON 
40 GO 

CREATE PROCEDURE usp_PSPriceWASPCIearMonth( 

©GasMonthx DATETIME 

45 AS ' 

BEGIN 

SETNOCOUNTON 

r 



50 Name: usp_PSPriceWaspCIearMonth 

Description: This routine will represents the common 'clean up 1 routine that 
will purge anything on the database that can be purged. 

55 The tables cleared include the following: 

GaslnvD (zero volume days for EstAct, Norn, PipeiineActuais) 
LegDetaii (zero volume routing entries) 

60 Inputs: 

GasMonthx (gas month to calculate), 

History: 

65 

06/30/1999 JAMIE Original creation 

08/04/1999 JAMIE Modifications to not delete the entries in the 
WASPPurchaseMeterTotais table. This is becuase this table contains 
70 the information necessary to calculate the margins on a deal. All other 
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supporting table entries will be deleted. 



10/12/1999 JAMIE Modifications to procedure to go out and delete any 
daily gas inventory entries that contain no data. Again, since this procedure 
5 is only executed when the gas month gets marked as completed there 

should be no repurcussions except fewer database records to administer. 
Anything of historical relevance will be retained (ie.. if any volume whatsoever). 

03/30/2000 JAMIE Modifications made in the procedure to remove the zero entry 
1 0 routing records from the database (prior deletion of the daily gas inventory 
items should have deleted all of these (based on triggers). However, 
this is for any/all other residuals. 

08/25/2000 JAMIE Modified in order to remove obsolete cleanup tables 
1 5 such as old routing tables/etc. 

7 

DECLARE @zMessage VARCHAR(254) 
20 DECLARE @zLastDay DATETiME 

DECLARE @wTID INTEGER 
DECLARE ©wGasDay DATETIME 

25 DECLARE @qLD!D INTEGER 

SELECT ©zMessage = ***** STARTED, PSPriceWASPCIearMonth' 
EXECUTE usp_Message ©zMessage 
EXECUTE usp JLastDay @GasMonthx,@zLastDay OUTPUT 
30 r 

* Remove daily inventory items that 

* are now zero... 

35 7 

DECLARE GasinvDCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

Gaslnv.TID, 
GaslnvD.GasDay 
40 FROM 

Gasinv, 
GasinvD 

WHERE 

GaslnvD.TID = Gaslnv.TID AND 
45 Gaslnv.GasMonth=@GasMonthx AND 

GasinvD. EstAct = 0 AND 
GaslnvD.Nom = 0 AND 
GaslnvD.PipelineActuals = 0 

ORDER BY 

50 Gaslnv.TID, 

GasinvD.GasDay 

SELECT @zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Inventory items...' 
EXECUTE usp_Message @zMessage 
OPEN GasinvDCursor 
55 FETCH NEXT FROM GasinvDCursor INTO @wTID, ©wGasDay 

WHILE @@FETCH STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

DELETE FROM GasinvD WHERE TID=@wTlD AND GasDay=@wGasDay 
60 COMMIT WORK 

FETCH NEXT FROM GasinvDCursor INTO @wTID, ©wGasDay 

END 

CLOSE GasinvDCursor 
DEALLOCATE GasinvDCursor 
65 SELECT @zMessage = ' PSPriceWASPCIearMonth, Finished removing ZEROd out inventory Items...' 

EXECUTE usp .Message @zMessage 
/* 



* Remove any routing items that had 
70 * no entries within them. 
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*/ 

DECLARE LegDetaiiCursor CURSOR LOCAL STATIC FORWARD J3NLY FOR 
SELECT 

5 LDID 
FROM 

LegDetail 

WHERE 

GasMonth=@GasMonthx AND 
10 Receipts AND 

Delivered=0 AND 
Balanced AND 
FuelOrOther=0 

ORDER BY 

1 5 PurchasePointTiD 

SELECT @zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Routing (LegDetail) Items...' 
EXECUTE usp_Message @zMessage 
OPEN LegDetaiiCursor 

FETCH NEXT FROM LegDetaiiCursor INTO ©qLDID 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

DELETE FROM LegDetail WHERE LDID=@qLDlD 
COMMIT WORK 

25 FETCH NEXT FROM LegDetaiiCursor INTO ©qLDID 

END 

CLOSE LegDetaiiCursor 
DEALLOCATE LegDetaiiCursor 

SELECT ©zMessage = * PSPriceWASPCIearMonth, Started removing ZEROd out Routing (LegDetail) items..: 
30 EXECUTE usp_Message ©zMessage 

SELECT ©zMessage = ***** FINISHED, PSPriceWASPCIearMonth' 

EXECUTE usp_Message ©zMessage 

END 

35 



GO 

SET QUOTED JDENTIFIER OFF SET ANSI NULLS ON 
40 GO 

SET QUOTED JDENTIFIER OFF SET ANSI_NULLS ON 
GO 

45 CREATE PROCEDURE usp_PSPriceWASPDivieOutProceedsN( 

@GasMonthx DATETIME, 
@WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12) 

50 AS 

BEGIN 
/* 



Name: usp_PSPriceWASPDivieOutProceeds 

55 

Description: 

This procedure will get executed during the WASP calculation in order 
to credit the financial proceeds (gain or loss) from one deal to another. 

60 

These proceed designations are, setup on the package table 
(FinancialPKG and FinanciaiMID field contains either a deal id 
or a common wasp meter pool point that is to receive the proceeds). 
These fields are mutually exclusive on the deal table. 

65 

The default for all deals is the deal itself (for owning the proceeds). Only 
if the FinancialPKG or FinanciaiMID field has been entered will it be 
distributed elsewhere. The distribution amount (if any) will be posted 
on the from deal record (either in the FinancialNomAmount or 
70 FinanciaiActAmount field, dependant on which price is calculating). 
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This procedure works for 3rd party deals only (deal classification rule 
is equal to 'None'). The reason for this is because these are the only 
types of deals where we know the actual margin ('Common' (Wasp) 
5 and sanctioned sales (Dedicated) are netback calculated deals. 

For all FinancialPKG/MID entries this procedure will: 

1 . Calculate the margin (purchase price and purchase meter price). 
10 2. Reduce the purchase meter amounts by the amount calculated. 

3. Post the dollar amount to the proceed purchase meter(s) based on their respective 
volume weightings to the deal. 

Inputs: 

15 

GasMonthx - Gas Month 

WhichPricex - 0=Nominations, 1=Actuals 

EntityCIDx - owning company/entity 

20 History: 

07/27/1999 JAMIE Original Creation. 

10/13/1999 JAMIE Modified to cast the distribution amounts to decimal(18 f 4). 
25 This is because of bug receiving correct amount to distribute when dividing 
two integers. 

03/30/2000 JAMIE Modified the program to not use the 'PackageLinks' 
table but to use the FinancialPKG field stored on the deai table. This 
30 was done as part of the integration with linking and the new route 

process. 

05/24/2000 JAMiE Modified to include the owning company/entity. 

35 07/28/2000 JAMIE Modified in order to post the updates of what is 
being distributed back to the Package table (for the 'from' deal) and 
then post the amounts to the WASP Purchase Meter table (for deals) 
or WASP Legs for meters. This change was done in order to 
facilitate the reordering of the calculations. 

40 

08/07/2000 JAMIE Modified so that even if diving to a specific deal IF 
that deal is a wasp deal then all deals that share the same onginal 
purchase point meters as the deal being divied to (in the 'Common' pool) 
will share in the divie. 

45 

08/18/2000 JAMIE Modified so that if diving to a specific deai then the 
amount will go to the WASPResoivedRouting table versus the obsolete 
WASPPurchaseMeterTable. 

50 - — — 

7 
/* 



* Declare all variables and cursors 
55 * that are needed by this process. 



7 

DECLARE @zMessage VARCHAR(254) 
DECLARE @zLastDay DATETIME 

60 DECLARE @zPurchasePrice DECIMAL(19,6) 

DECLARE @zlncludelnWasp VARCHAR(10) 
DECLARE ©zTotalVolume INTEGER 
DECLARE ©zGrandTotalDistributed DECIMAL(19,2) 
DECLARE ©zTempVolPercent DECIMAL(1 9,4) 

65 DECLARE ©zAmountToDistribute DECIMAL(1 9,2) 

DECLARE ©zMarginPrice DEC1MAL(18,4) 
DECLARE @zMarginAmt DECIMAL(19,2) 
DECLARE @zFoundDedicated VARCHAR(1) 
DECLARE QzSumofFBOPKGCreditMeters INTEGER 

70 DECLARE ©zAmountToCredit DECIMAL(1 9,2) 
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DECLARE ©zSumofFBOPKGMeters INTEGER 

DECLARE @yPKG INTEGER 
DECLARE ©yFinanciaiPKG INTEGER 
5 DECLARE ©yKProductID INTEGER 

DECLARE ©yKServicelD INTEGER 
DECLARE @yFinancialM!D INTEGER 

DECLARE @yWASPReceiptDECIMAL(19,2) 
1 0 DECLARE ©yWASPAmount DECIMAL(19,2) 

DECLARE ©yWASPPrice DECIMAL(19,6) 
DECLARE ©yWASPResolvediD INTEGER 

DECLARE ©yWASPCreditReceipt DECJMAL(19,2) 
1 5 DECLARE ©yWASPCreditAmount DECIMAL(1 9,2) 

DECLARE ©yWASPCreditPrice DECIMAL(19,2) 
DECLARE ©yWASPCreditResolvedID INTEGER 

DECLARE ©qDelivered DEC!MAL(19,2) 
20 DECLARE ©qAmount DECIMAL(19,2) 

DECLARE ©qPrice DECIMAL(19,6) 
DECLARE @qResolvedlD INTEGER 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, ***STARTED* 
25 EXECUTE usp_Message @zMessage 

EXECUTE usp_fLastDay @GasMonthx t @zLastDay OUTPUT 

r 



* At this point we want to loop 
30 * through all of the packages 

* (deals) on the system that had 

* requested that the proceeds 

* be divied to other deals. 



35 */ 

DECLARE ProceedsCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

PKG, 

40 FinancialPKG, 

KProductID, 
KServicelD, 
FinancialMID 
FROM 

45 Package, 

K 

WHERE 

(K.KID=Package.KID) AND 
(K£ntityCID=@EntityCIDx) AND 
50 (StartDate BETWEEN ©GasMonthx AND ©zLastDay) AND 

(((FinancialPKG IS NOT NULL) AND (FinanciaiPKG<>0)) OR ((FinancialMID IS 
NOT NULL) AND (FinancialMID<>0))) 
ORDER BY 

PKG 

55 

OPEN ProceedsCursor 

FETCH NEXT FROM ProceedsCursor INTO @yPKG,@yFtnancialPKG,@yKProductlD t @yKServicelD,@yFinanciaiMlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 , BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceWASPDivieOutProceedsN, Proceeds divied from deal... 1 + 
CAST(@yPKG as VARCHAR(12)) 

EXECUTE uspjvtessage @zMessage 

r 

65 ************ 

* Get the agreed upon purchase 

* price from the engine for the 

* 'from' purchase deal. The total 

* volume across ail days is also 
70 * obtained here (for all meters). 
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* Base the price on the weighted 

* averages for aii entries within 

* the Engine table. 

* This yields the single weighted 

* average cost across ail weiis 

* and days. 
* 

* This price should be the price 

* that was found PRIOR to diving 

* out any adjusments. 

V 

IF @WhichPncex=0 
BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.Amount)/SUM(Engine. Volume) FROM Engine.Gaslnv 

WHERE 

(Gasinv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND (Engine JID=Gasinv.TID) AND (Engme.STlD=8) 
AND 

Engine. Amount>0 and Engine. Volume>Q) t 0),4) 

SELECT @zTotalVoiume=ISNULL((SELECT SUM(Engine. Volume) 
FROM Engine,Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(Engine.T!D=Gaslnv.T!D) AND (Engine.STID=8) AND 

Engine.Amount>0 and Engine. Volume>0),0) 
END 

!F @WhichPricex=1 
BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.AmountAct)/SUM(Engine.VolumeAct) FROM Engine.Gaslnv 

WHERE 

(Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND (Engine.TID=Gasinv.TlD) AND (Engine.ST!D=8) 
AND 

Engine.AmountAct>0 and Engine. VolumeAct>0),0),4) 

SELECT @zTotalVolume=iSNULL((SELECT SUM(Engme.VolumeAct) 
FROM Engine,Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(Engine.TID=Gaslnv.TID) AND (Engine.STID=8) AND 

Engine.AmountAct>0 and Engine. VolumeAct>0),0) 
END 

/* 



* Only continue if the purchase 

* price (average) for this deal 

* could be calculated (ie.. there 

* was a volume and there was 

* a price entry. 
* 

* Now loop through each of the 

* meters to determine how much 

* to reduce each meter by... 

V 

SELECT ©zGrandTotalDistributed^O 
IF (@zPurchasePrice>0) 
BEGIN 

IF @zTotalVolume<>0 
BEGIN 



amounts*/ 



/* This cursor is for determining proceed 



DECLARE 

WASPResolvedRoutingDebitCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
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SELECT 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



AND 



WASPResolvedRouting 

GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yPKG AND 
NomOrActual=@WhichPricex AND 
EntityC!D=@EntityCIDx AND 
KProductlD=@yKProductID AND 
KServiceiD=@yKServicelD AND 
ResolvedType- P' AND 

RecMiD=DefMID 



receipt, 
amount, 
price, 

ResoivedID 
FROM 



WHERE 



INTO @yWASPReceipt@yWASPAmount, 

@yWASPPrice,@yWASPResolved!D 



@zMarginPrice=ROUND((@yWASPPrice-@zPurchasePrice),4) 
@zMarginAmt=ROUND((@zMarginPrice*@zTotalVolume),2) 



L!D=0 



OPENWASPResoivedRoutingDebitCursor 
FETCH NEXT FROM WASPResolvedRouting DebitCursor 



WHILE @@FETCH_STATUS = 0 
BEGIN 
SELECT 



SELECT 

IF@yWaspReceipt>0 
BEGIN 



SELECT @zTempVoiPercent=ROUND((@yWaspReceipt/@zTotaiVolume) ( 4) 
SELECT @zAmountToDistribute=ROUND((@zTempVolPer^nt*@zMarginAmt) ( 2) 
SELECT @zGrandTotalDistributed=@zGrandTotalDistributed^zAmountToDistribute 
UPDATE 

WASPResolvedRouting 
SET 

Amount=Amount+{@zAmountToDistribute*-1) 

WHERE 

ResolvedlD=@yWASPResoivedlD 

UPDATE 

WASPResolvedRouting 
SET 

Price=(AmountfReceipt) 

WHERE 

ResoivedlD=@yWASPResolvediD AND 
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Receipt<>OAND 



Amount<>0 

5 END 

FETCH NEXT FROM 

WASPResoivedRoutingDebitCursor INTO @yWASPReceipt,@yWASPAmount, 

@yWASPPrice,@yWASPResoivediD 
10 END 

CLOSE WASPResoivedRoutingDebitCursor 
DEALLOCATE 

WASPResoivedRoutingDebitCursor 

END 

15 END 

r 



* At this point, if there has been any 

* proceeds distributed from the 

20 * purchase deal then go and distribute 

* the amount back to the deal where 

* that is receiving credit. This is 

* based on the volume weighting 

* distribution at the target 'to* meter. 



25 



30 



*The field zGrandTotalDistributed contains 

* the total dollar amount to be credited 

* the the meters (based on volume 

* weighting. 

7 

IF @zGrandTotalDistributed<>0 
BEGIN 

/* 



35 

* Post the 'from' deal with the 

* appropriate distributed amount. 

* This is the total amount across 

* the entire deal and is stored on 
40 * the deal record to provide an 

* audit of how much was diverted. 



7 

IF @WhichPricex=0 

45 BEGIN 



UPDATE 

Package 
SET 



50 FinanciaiNomAmount=@zGrandTotaIDistributed 

WHERE 

PKG=@yPKG 

END 

IF @WhichPricex=1 

55 BEGIN 

UPDATE 

Package 



60 , FinancialActAmount=@zGrandTotaiDistributed 

END 



SET 
WHERE 



PKG=@yPKG 



65 

* If diving to another deal then 

* perform this.... Adjustments are 

* made to the WASPResoivedRouting 

* table. There is no need to post 
70 * adjustments to the Engine table 
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10 



65 



* since the target deals have either 

* not yet calculated (dedicated) or 

* the Engine price is fixed {3rd 
^party). 

7 

IF (@yFinancialPKG IS NOT NULL) AND (@yFinancialPKG<>0) 
BEGIN 

r 



* Determine if the target deal is 

* a wasp deal or a 3rd party or 

* sanctioned sale deal... if it is a 

* wasp deal then the originating 
1 5 * meters in the common pool 

* will get the credit. 



20 @yFinancialPKG,@z!ncludelnWasp OUTPUT 



7 

EXECUTE usp JGetWasplndicator 



* Sum totals across all meters on 
*the target deal... 

25 " ' 

7 

IF @WhichPricex-0 

BEGIN 
SELECT 

30 @zSumofFBOPKGCreditMeters=!SNULL((SELECT SUM(inventory.Nom) FROM gaslnv AS inventory 

WHERE inventoiy.PKG=@yFinancialPKG AND inventory.GasMonth=@GasMonthx AND 
inventory.DBCR=0 AND inventory .PriceType=1 ),0) 

END 

35 IF@WhichPricex=1 

BEGIN 
SELECT 

@zSumofFBOPKGCreditMeters=lSNULL((S ELECT SUM(inventory.PipelineActuals) FROM gaslnv AS inventory 

40 WHERE inventory.PKG=@yFinanciaiPKG AND inventory.GasMonth=@GasMonthx AND 

inventory.DBCR=0 AND inventory.PriceType=1),Q) 

END 

/* ^ uu i ^ iti| 

45 * If there is some sort of volume 

* then post it proportionately. 



7 

IF @zSumofFBOPKGCreditMeters<>0 
50 BEGIN 

/* 



* if not a wasp deal to post the 
55 * credit to then... 

7 

IF @zlncludelnWasp <> 

60 'Common' 

BEGIN 



/* This cursor is for posting proceeds to a dedicated deal point*/ 

DECLARE WASPResolvedRoutingCreditDedicatedCursor CURSOR LOCAL STATIC FORWARD.ONLY 



FOR 

70 SELECT 
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receipt, 
amount, 

5 

pnce. 

Resolved ID 

1 0 FROM 

WASPResolvedRouting 

WHERE 

15 

GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yFinancialPKG AND 
20 NomOrActual=@WhichPricex AND 

receipt>0 AND 
ResolvedType- P' AND 

25 

LID=0 AND 
RecMlD=DelMID 

30 OPEN WASPResolvedRoutingCreditDedicatedCursor 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO ©yWASPCreditReceipt, 

@yWASPCreditAmount,@yWASPCreditPrice ( @yWASPCreditResolvedlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 



35 



40 SELECT 

@zTempVolPercent=ROUND({@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters) p 4) 



45 



55 



SELECT 

@zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotaiDistributed) p 2) 



IF @zAmountToCredit<>0 
BEGIN 

50 UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount-^@zAmountToCredit) 

WHERE 



60 

ResolvediD=@yWASPCreditResoivedlD 

UPDATE 

65 WASPResolvedRouting 

SET 

Price=(Amount/Receipt) 
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WHERE 



10 



15 



20 



30 



35 



Resolved!D=@yWASPCreditResoivediD AND 

AmountoQ AND 
Receipt<>0 

END 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO 



@yWASPCreditReceipt, 



@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResolvediD 
END 

CLOSE WASPResolvedRoutingCreditDedicatedCursor 
DEALLOCATE WASPResoivedRoutingCreditDedicatedCursor 

END 

25 r 



* if wasp deal to post the 

* credit to then... 



*/ 

IF @zlnciudelnWasp- Common' 
BEGIN 



r This cursor is for posting proceeds to a common meter purchase point*/ 

40 DECLARE WASPResolvedRoutingCreditWASPCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

wp.receipt, 

45 

wp.amount, 
wp.price, 

50 wp.ResolvediD 

FROM 

WASPResoivedRouting AS wp, 

55 

Gasfnv AS g 

WHERE 

60 g.GasMonth=@GasMonthx AND 

g.PKG=@yFinancia(PKG AND 
g.Gasfnv_MID=wp.RecMID AND 

65 

wp,GasMonth=@GasMonthx AND 
wp.DedicatedPurchasePKG=0 AND 
70 wp.lnciudelnWasp- Common' AND 
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wp.NomOrActuat=@WhichPricex AND 
wp.receipt>0 AND 

5 

wp.EntityCID=@EntityCIDx AND 
wp.KProductiD=@yKProducttD AND 
1 0 wp.KServiceiD=@yKServiceiD AND 

wp.ResoivedType-P' AND 
wp.LID=OAND 

15 

wp.RecMID=De!M!D 
OPEN WASPResolvedRoutingCreditWASPCursor 
20 FETCH NEXT FROM WASPResoived Routing CreditWASPCursor INTO ©yWASPCreditReceipt, 

@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResolvedlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 



25 



30 



35 



45 



50 



60 



65 



SELECT 

@zTempVolPercent=ROUND({@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters),4) 

SELECT 

@zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotaiDistributed),2) 



IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

40 WASPResolvedRouting 

SET 

Amount=(Amount-^zAmountToCredit) 

WHERE 



ResolvedlD=@yWASPCreditResoivedlD 

UPDATE 

WASPResolvedRouting 
55 SET 

Price=(Amount/Receipt) 

WHERE 



ResolvediD=@yWASPCreditResolvedlD AND 



END 



AmountoO AND 
Receipt<>0 
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FETCH NEXT FROM WASPResoivedRoutingCreditWASPCursor INTO 

@yWASPCreditReceipt, 



40 



45 



50 



END 



@yWASPCreditAmount@yWASPCreditPrice,@yWASPCreditResolvediD 
END 

1 0 CLOSE WASPResolvedRoutingCreditWASPCursor 

DEALLOCATE WASPResolvedRoutingCreditWASPCursor 

END 

15 END 

* !f diving to the WASP pool then 

* the total distributed is posted 
20 * proportionately on each ieg that 

* contains this meter in the 
* 'Common' pool. 

7 

25 IF (@yRnancialMIO IS NOT NULL) AND (@yFinancialMID<>0) 

BEGIN 
/* 



* Sum totals across all legs that 
30 * have the same meter in the 

* 'Common' pool for the month. 

7 

SELECT 

35 @zSumofFBOPKGCreditMeters=iSNULL((SELECT SUM(Delivered) FROM WaspResoivedRouting 



WHERE GasMonth=@GasMonthx AND LiD<>0 AND 

NomOrActual=@WhichPricex AND lnc!udelnWasp='Common' AND 

EntityCID=@EntityCIDx AND KProductlD=@yKProductlD AND 

KServicelD=@yKService!D AND DeiMID=@yFinancialMID),0) 
I* 

* If there is some sort of volume 

* then post it proportionately to 
*each of the legs in the WASP 

* resolved routing table. 

7 

IF @zSumofFBOPKGCreditMeters<>0 
BEGIN 



55 /* This cursor is for 

posting proceeds to a wasp pooi (non entry point)*/ 

DECLARE 

WASPResoivedRoutingCreditCursor CURSOR LOCAL STATIC FORWARD_0NLY FOR 
60 SELECT 

delivered, 

amount, 

65 

price, 

ResolvedID 
70 FROM 
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WASPResolvedRouting 

WHERE 

5 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
10 EntityCID=@EntityCIDx AND 

KProductlD=@yKProductID AND 
KServiceiD=@yKServicelD AND 
DelMID=@yFinancialMID AND 
LID<>0 AND 

20 InciudeinWasp- Common' AND 

deiivered>0 

OPEN 

WASPResoivedRoutingCreditCursor 
25 FETCH NEXT FROM 

WASPResolvedRoutingCreditCursoriNTO @qDelivered,@qAmount,@qPrice,@qResolvedlD 

WHILE 

@@FETCH_STATUS = 0 

BEGIN 



15 



30 



r 



35 * Determine the percent to post 

*here... 



40 

*/ 

SELECT @zTempVolPercent=ROUND((@qDeiivered/@zSumofFBOPKGCreditMeters) ( 4) 
45 SELECT @zAmountToCredit=ROUND((@zTernpVolPercent*@zGrandTotalDistributed),2) 

IF @zAmountToCredit<>0 
BEGIN 

50 

UPDATE 

WASPResolvedRouting 
55 SET 

Amount=(Amount+@zAmountToCredit) 

WHERE 

60 

ResoivedlD=@qResolvediD 

END 

65 FETCH NEXT FROM WASPResolvedRouting CreditCursor INTO @qDelivered,@qAmount, 



@qPrice,@qResoIvedlD 

END 
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CLOSE 

WASPResolvedRoutingCreditCursor 

DEALLOCATE 

WASPResolvedRoutingCreditCursor 
5 END 

END 

END 

COMMIT WORK 

FETCH NEXT FROM ProceedsCursor INTO 
10 @yPKG,@yFinanciaiPKG,@yKProductlD,@yKService!D,@yFinanciaiM!D 
END 

CLOSE ProceedsCursor 
DEALLOCATE ProceedsCursor 

SELECT @zMessage = 'PSPriceWASPDivieOutProceedsN, ***FINISHED*** 
1 5 EXECUTE usp_Message @zMessage 

END 



20 



25 



GO 

SET QUOTED J DENTIFiER OFF SET ANSLNULLS ON 
30 GO 

SET QUOTEDJDENTlFiER ON SET ANSLNULLS ON 
GO 

35 CREATE PROCEDURE uspJGetCaldndex( 



40 



AS 

45 BEGIN 
/* 



Name: uspJGetCalclndex 

50 Description: This is the main process for finding the actual price that was 

calculated for a WASP purchase deal. The WASPResolvedRouting table 
contains all of the prices for WASP purchases. 

An attempt should first be made to see if the price can be resolved by reading 
55 for a 'Dedicated' wasp pool (sanctioned sales/purchases are more or less 

dedicated). The purchase deal id must match the dedicatedpurchasepkg field 
on the WASPResolvedRouting. 

If the specific package cannot be found then the purchase meter will be used 
60 (ie.. ;Common' wasp pool). 

Inputs: 

TIDx - Unique Key to gas inventory record (Gaslnv) 
65 NomOrActualx - 0=Nominations, ^Actualizations 

EntityCiDx- owner 

KProductlDx - product id 

KServicelDx - service 

GasMonthx - Current gas month 
70 rReturnValue - OUTPUT return value 



@T!Dx INTEGER, 
@NomOrActuaix INTEGER, 
@EntityClDxVARCHAR(12), 
©KProductlDx INTEGER, 
©KServicelDx INTEGER, 
©GasMonthx DATETIME, 
©rReturnValue DECIMAL(19,6) OUTPUT 

) 
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History: 



06/29/1999 JAMIE Modified from original creation 
5 (date of original creation ?) to support WASP caic changes V2.20. 

06/22/2000 JAMIE Modified to get wasp prices based on entity, 
product, and service. 

1 0 08/1 8/2000 JAMiE Modified to get the wasp prices off the WASPResolvedRouting 

table versus the obsolete WASPPurchaseMeterTable. 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL. 

15 



7 

20 * Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE @ymid INTEGER 
25 DECLARE @ypkg INTEGER 

DECLARE ©ygasmonth DATETiME 
DECLARE ©yWorkValue DECIMAL(19 f 6) 
DECLARE ©message VARCHAR(255) 

/* 

30 ********* ****** ****** 

* initialize key fields and then get 

* the meter and deai information 

* off the gas inventory table. 



35 */ 

SELECT @rReturnValue=0 
SELECT 

@ymid=gasinv_mid, 
@ypkg=pkg, 

40 @ygasmonth=gasmonth 
FROM 

gasinv 

WHERE 

tid=@tidx 

45 /* ^ l 

* Now try and read the price off the 

* WASPResoivedRouting with 

* an assumption that it could be a 
50 * sanctioned sale deal. 



7 
/* 



55 * If price is a dedicated purchase 

* price then get that number. Otherwise, 

* the the price from the WASP pool. 



*/ 

60 IF ((SELECT countO FROM WASPResoivedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND include! n Wasp-Dedicated' 
AND NomOrActual=@NomOrActualx AND RecMlD=@ymid 

AND DelMID=@ymid AND ResoivedType='P' AND UD=0 AND 
EntityClD=@EntityCIDx AND KProductiD=@KProductiDx AND KServicetD=@KServicelDx) > 0) 
65 BEGIN 

SELECT @yWorkValue=Price FROM WASPResoivedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND 
includelnWasp^Dedicated' AND NomOrActuaN@NomOrActuaix AND RecMID=@ymid 

AND DelMlD=@ymid AND ResoivedType='P' AND LlD=0 AND 
70 EntityCID=@EntityCiDx AND KProductiD=@KProductlDx AND KServicelD=@KServicelDx 
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END 

ELSE 

BEGIN 

SELECT @yWorkValue=Price FROM WASPResolvedRouting 
5 WHERE RecMiD=@ymid AND DelMID=@ymid AND LlD=0 AND Resolvedly pe^P 1 

AND gasmonth=@ygasmonth AND IncludeinWasp- Common' AND 
NomOrActua!=@NomOrActuaix AND EntityCID=@EntityCIDx 

AND KProductlD=@KProductlDx AND 

KServicelD=@KServtceiDx 
10 END 

/* tttimuuiumt([- 

* If some sort of price was found then 

* return with it... Otherwise zeros 
15 * are returned ( no price calculated). 

Aft ******* h A * k A A** * A A A k k A A A A A A A A AAA* A****** 

*/ 
/* 

SELECT ©message = 'WASP Price 1 + 
20 CAST(@yWorkVaiue AS VARCHAR(1 2)) + 

' for meter id ' + 

CAST(@ymid AS VARCHAR(12)) 
EXECUTE usp_message ©message 
7 

25 !F@yWorkValuelSNOTNULL 
BEGIN 

SELECT @rRetumValue=@yWorkVaiue 

END 

END 

30 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
35 GO 



ADDITIONAL FEATURES 

40 The present invention has been disclosed, illustrated, and 

described in relation to a client-server application that facilitates 
pricing and distribution of fuel to a customer. Although centralized 
data storage and manipulation is preferred in regard to the version 
of the system that has been provided, the inventors contemplate 

45 other applications and enhancements that certainly are within the 
scope of the present invention. For example, the present 
invention relies on data inputs and feeds from a variety of entities 
such as producers, transporters, etc. Although such data inputs 
are often entered manually into the systems provided by the 

50 present invention, such data inputs could be automatically 
delivered and stored within data store 106 (FIG. 2). For example, 
transporters controlling actual meters along a gas pipeline, for 
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example, could be outfitted with remote sensors and transmitters 
that provide shipment volume, etc. details directly to the systems 
provided by the present invention. Moreover, data inputs such as 
indexing datum used to drive pricing, etc. may be similarly 

5 obtained. And, since such data inputs can come from a variety of 
sources, modern communications technologies such as the 
Internet, wireless technologies, etc. could all be used to couple an 
operator of the systems and methods provided by the present 
invention with such sources. Accordingly, the present invention is 

10 not limited to any particular data retrieval system, topology, 
method, or paradigm. Those skilled in the art will be immediately 
able to adapt and modify the underlying data collection 
capabilities of the systems and methods provided by the present 
invention to incorporate such new and modern technologies and 

15 techniques. 

Finally, it should be noted that the present invention 
contemplates and provides for an elaborate reporting capability as 
provided within the software contained on the attached compact 
disc. Those skilled in the art of computer programming and those 

20 familiar with fuel deal management will immediately understand 
that any number of report may be prepared to suit and satisfy 
management requirements. The database tables maintained by 
the present invention certainly support all types of relational type 
queries that such reports may require. 

25 Thus, having fully described the present invention by way 

of example with reference to the attached drawing figures, it will 
be readily appreciated that many changes and modifications may 
be made to the invention and to any of the exemplary 
embodiments shown and/or described herein without departing 

30 from the spirit or scope of the invention which is defined in the 
appended claims. 
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